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Foreword 



This volume is a collection of programming language texts which 
DEC makes available for users of the PDP-8 small computer series. 
It is an extension of our companion volume, "Introduction to Pro- 
gramming," which is now widely available. This 2- volume set con- 
tains most of the standard systenis programming information which 
PDP-8 programmers will need. 

We have brought all of these documents together because we 
believe that the availability of compact, low-cost, rapid access, in- 
formation sources (such as these paperback books), is an essential 
catalyst to assist the continuing rapid growth of data processing, 
and its many new applications. The need for computer program- 
ming skills, such as facility in these languages, will increase during 
the decade ahead. 

I would like to thank the many systems programmers, engineers, 
scientists, teachers and students, who, over the years, have con- 
tributed to the development and improvement of these programs 
and documents. 

President, 

Digital Equipment Corporation 



ni 



Additional copies may be ordered from DEC Program Library, 
Bldg. 3-5, Maynard, Mass. 01754. 



$2.00 : quantity discounts available.. 
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Preface 



Like its companion volume, Introduction to Programming, this 
book is designed as a portable, compact source of information. Be- 
fore you choose a language, we suggest you spend a few^moments 
studying the way information is organized and indexed. 

To find a major section of this book quickly, you should first go 
to the index tab guide on the back cover. Bend the book slightly, 
place your finger on the corresponding black printed tab, and open 
the book to the first page of the desired section. 

For more detailed information, go to the Master Index/Glossary 
at the back of the book. The glossary terms are set in italics, and 
include most of the specialized terminology used in Programming 
Languages. 

In general, this book is concerned with the languages only. Al- 
though we show, by many examples, how the languages may be 
used, we do not attempt to cover programming techniques in a de- 
tailed or complete manner. Nor do we discuss program preparation, 
loading, or testing. These activities are discussed in Introduction to 
Programming, and will be explained more fully in forthcoming edi- 
tions of that handbook. Operating procedures for these programs 
are also contained in the series of System User's Guides which are 
available from the DEC Program Library, Maynard, Mass., 01754. 
Many other programming languages have been implemented on 
the PDP-8 series, and some of these are available through the DEC 
User's Society (DECUS). For example, DECUS can send you a 
copy of a 4K ALGOL compiler which was developed at the Uni- 
versity of Grenoble in France. Or you might want to use a LISP 
interpreter from the Technical University of Delft, in Holland. To 
find out more about these and other programs which DECUS mem- 
bers exchange, write to DECUS, Maynard, Mass., 01754. 



We invite you to help us to improve the next edition of this 
handbook. If you should find an error, an ambiguity, or misleading 
information, send us a note. We would also like to have your 
critical evaluation of this book, and the ease (or difficulty) you 
experienced in learning a programming language. The address is: 

Manager, Software Writing Group 
Dif^ital Equipment Corporation 

Maynard, Mass. 01754 
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Introduction 



These PDP-8 languages may present a selection problem for 
some users. Which of these languages should you learn, or to state 
the problem differently, which language is best for the programs 
you will write. 

If you want to pick a language which is easy to learn, start with 
FOCAL or BASIC. These are conversational, interactive languages 
which are popular in high schools and colleges. They are recom- 
mended for non-mathematical programmers and for busy engineers, 
scientists, accountants and others who need a very high speed, 
supercalculator. 

It is generally agreed that the most efficient computer programs, 
both in terms of storage use and speed of execution, are programs 
written in machine language: in this case the hard- wired instructions 
which the PDP-8 can perform. If you are planning to write a pro- 
gram which will be used very often, or which must operate in a 
small number of core locations, you probably should write your 
program for assembly by PAL III, MACRO, PAL-D or SABR. 

FORTRAN is the world's most popular programming language, 
and is considered primarily a scientific language. On the PDP-8 
there is a basic 4K FORTRAN system (not included in this vol- 
ume), and a more powerful 8K system (see Chapter 15). 

Comparing Programming Languages 

All computer languages have certain things in common. It is 
helpful to understand what these things are if one wishes to choose 
among or learn several different languages. 

Every language has commands for communicating the desires of 
the user to the computer. All computer commands can be placed 
into four categories: 

1. Input and output commands to transmit raw information; 

2. Computational commands to manipulate the information, 
thus producing new information; 
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3. Control commands to tell the program the order of executing 
I other commands; 

I 4. Pseudo commands that do none of the other jobs but merely 

tell the computer things it needs to know, like where the end 

of a program is. 

Every language has data structures to hold the information that 
wUI be communicated and manipulated. Ail data structures m_ay be 
placed into four categories. 

1. Variables to hold numbers: 

2. Text to hold the commands (also called programs); 

3. Strings to hold symbolic information; 

4. Stacks to hold control information. 

Every language implementation may be classified by its primary 
modes of operation. 

1. Compilers take user-oriented commands and translate them 
into machine-oriented commands; 

2. Incremental compilers translate only those statements actually 
executed; 

3. Semi-compilers produce an intermediate code that is then 
interpreted. 

4. Interpreters scan the user oriented commands and call appro- 
priate subroutines. 

5. Assembly language is essentially machine oriented. 

Future Developments 

If new programming languages continue to proliferate at the 

xwDwAxi, x*j.3i. xauw^ vv^^ vail vApwt tw bv^v iiiui^ uUWcixui COiiYCiSaLiOiicii 

systems such as FOCAL coming into general use. 

There will be many other special purpose languages, and adapta- 
tions of common languages. These are used for numerical machine 
control, typesetting, laboratory automation, library indexing, in- 
foiriialion niauagement, inventory conirol and many other applica- 
tions. 

Entirely new fields of study, such as mathematical linguistics, 
which attempts to explore the common characteristics of both 
natural and machine languages, and microprogramming, which is 
an interesting way of programming at the hardware pulse level, will 
provide new ideas for future orogramming laneuapes 
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Part One 
Getting Started in Programming 

This is the starting point for learning how to solve numerical 
problems using the FOCAL^ (Formulating On-Hne Calculations 
in Algebriac Language) system on PDP-8 series computers. 

We will assume that you will type your programs on a Teletype 
terminal, which has a keyboard much like a standard typewriter. 
There are some important differences, which we will point out as 
we go along. 

FOCAL is called a conversational language because the system 
reacts immediately to the things that you do. 

Let's start by turning on the Teletype. 

COMMUNICATING WITH THE COMPUTER 

When you are ready to start, you must turn the round switch 
on the front of your Teletype to LINE. This connects you to the 
computer. 

Next, press down on the Control (marked CTRL) key and at 
the same time, press on the C key. If you are now connected to 
the computer, FOCAL will respond with "701.00*". The "701.00" 
is a coded message from FOCAL meaning the FOCAL program 
is loaded into the computer, and the asterisk means FOCAL is 
ready for your next command. To help you decipher other coded 
messages, we have included a list of these codes, and the meaning 
of each, in the back of this chapter. Generally speaking, if you 
write a command which FOCAL cannot interpret, or if you break 
any of the programming rules for writing FOCAL statements, you 
will get a coded error message. 

Operating and loading procedures are included at the end of 
this chapter. 

1 Trademark, Digital Equipment Corp. 
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HIGH-SPEED CALCULATIONS USING THE 
TYPE COMMAND 

You only need to learn one FOCAL command, TYPE (ab- 
breviated T), to do calculations such as the following. 

10« X j^+ 21-2 



-r—^r^ j-^ A T 



to 00 tms m ruCAi-, you type 

(and after you press the RE- 
*T 10 T 3 *3/i0 + 21-2 TURN key FOCAL computes 

= 319.0000 this result. Every line must end 

with a RETURN.) 

This example shows the arithmetic operations performed by 
FOCAL. These are done from left to right except that exponentia- 
tion ( t ) is done first, then multiplication (*), then division (/), 
then addition (+) or subtraction (— ). 

T-'u:- ,. +u„.i- 

iiiib iiiediis uiai. 

6 + 6*2 (which is lb because multiplication is 

done before addition) 

is not (6 + 6) *2 (which is 24) 

ENCLOSURES 

To make sure that the computer periorms tnese operations in 
the order you want, you can place them inside parenthesis marks. 
When the computer sees an expression enclosed in parentheses, it 
does that first. If the statement includes parentheses with paren- 

tViAcec ^npctino^ it c'^«Tr!nntPc thp innprmnist first ' 

7+C6/3) - (5T2) *3 



expressions enclosed in parentheses: (6/3) is 2, and (512) is 25. 
Then 7 + 2 - 25*3 =-66.0000. 

You can also use square brackets, [ and 1, and angle brackets, 
< and >, to enclose expressions. All of these enclosure symbols 
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are evaluated equally, but the innermost will always be done first. 
They must always be used in pairs. The [ and ] enclosures are 
typed using SHIFT/K and SHIFT/M, respectively. 

ANOTHER COMMAND: SET 

This useful command tells FOCAL "store this symbol and its 
numerical value. When I use this symbol in an expression, insert 
the numerical value." 

*SET PI=3. 14159; SET E=2. 71828; SET R=9. 12739 

Symbols may consist of one or two alphanumeric characters. The 
first character must be a letter, but must not be the letter F. 

Just for practice, let's use FOCAL to calculate the volume of a 
sphere which has a radius of 9.12739.' (We're going to use two of 
the symbols we have just defined in the SET commands above.) 

The formula is V =— ^j-s 
which we can type hke this: 

RT3*PI*4/3 

You might be interested in running a timing test to show how 
long it takes to do such calculations by hand, with a calculator, 
and with FOCAL. 

THE TALKING TYPEWRITER 

To make the output of your program absolutely clear to other 
people, it is sometimes useful to give FOCAL certain messages or 
column headings. We call these character strings. These messages 
are enclosed in quotation marks. 

*SET E=2. 71828 

*SET PI = 3. 1/1159 

*TY?E "PI TIMES E" PI*E 

and FOCAL types out 

PI TIMES E= 8.5397* 

You are not allowed to use the carriage return, line feed or 
leader-trailer characters in these character strings. But you can 
tell FOCAL to do a carriage return/line feed by inserting an ex- 
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clamation mark (!). You can get a carriage return by inserting a 

numbsr sign- ( # ) . 

*TYPE "JOHN"! "BILL"! "FRED"! "SAM"! "RICHARD" 

JOHN 

BILL 

FRED 

SAM 

RICHARD 

* 

Spaces can be used in character strings as needed. 

KEEPING TRACK OF THE DECIMAL POINT 

FOCAL results are accurate to six significant digits. As we have 
shown in the examples so far, FOCAL assumes at the start that 
you want to see your results with 4 digits (or spaces) to the left 
of the decimal point and 4 digits to the right of the decimal point. 
This is called fixed-point notation. ^ 

YOU can change tne ouipui iOiuiai Wiuun a i. xxj-^ 5tu.cwi*wii^ ^j 
typing "%x.y" where x is the total number of digits to be out- 
._..x , J -. :- *T ,,,^u^T nf A'^n'tfc fn. thp- rioht nf thp decimal noint. 

Both X and y are positive integers- equal to or less than 31. If y is 
a single digit, it must be preceded by 0. For example, % 6.02 indi- 
cates four digits to the left and two to the right of the decimal point. 
If your results exceed the format you have specified, FOCAL 
gives you results in floating-point format, like this: 

= ±0.xxxxxxE ± Z 

where Z is an exponent of 10. 

followed by a comma, in a TYPE command. 



*TYPE'%>11 

-0 = 1 1 0000E+0 2=?= 

which is 0.11 times 10-, or 11. The largest number that 
FOCAL can handle is + 0.999999E -I- 615, and the smallest is 



- 0.999999 E + 615. 
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CORRECTING MISTAKES 

If you should strike the wrong key, you can delete it by striking 
the RUBOUT key. Each time you strike RUBOUT, another pre- 
viously typed character will be deleted. When you strike RUBOUT, 
FOCAL echoes back a backslash (\) to tell you how many char- 
acters you deleted. 

SUMMARY OF PART ONE 

In this first part you have learned how one FOCAL command 
TYPE, is used to evaluate expressions, to type out cljaracter 
strings enclosed in quotes, and to use symbols (defined in SET 
commands) in expressions. 

In the second part you will learn the other commands, and the 
use of line numbers to write a sequence of FOCAL statements. 
As you learn these techniques, you will be advancing rapidly in 
the art of computer programming. 
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Part Two 
Sequential Commands 

INDIRECT COMMANDS 

Up to this point, only commands which are executed immediately 
by FOCAL have been discussed. If a Teletype line is prefixed by 
a hne number, that line is not executed immediately; instead, it is 
stored in the computer's memory for later execution, usually as 
part of a sequence of commands. 

Line numbers must be in the range from 1.01 to 31.99. The 
numbers 1.00, 2.00, etc., are illegal line numbers; they are used 
to identify the entire group. The number to the left of the point 
is called the group number; the number to the right is called the 
step number. 

*1 . 1 SET A=l 
*1 .3 SET B=2 
*1 . 5 TYPE %1 ^ A+B 

Indirect commands are executed by typing GO, GOTO, or DO 
commands which may be direct or indirect. 

GO Command 

The GO command causes FOCAL to go to the lowest numbered 
line to begin executing the program. If the user types a direct GO 
command after the indirect commands in the example above, 
FOCAL will carry out the command at line 1.1, and then the 
others, sequentially. 



*G0 
= 3* 



GOTO Command 

The GOTO command causes FOCAL to transfer control to a 
specific line in the indirect program. It must be followed by a 
specific line number. After executing the command at the specified 
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line, FOCAL continues to the next higher line. The GOTO causes 
a program branch; we have jumped from one sequence of lines to 
another. Sometimes we merely jump back and repeat a sequence 
of commands. This technique of repeating sequences is called 
iteration, and it is often used by experienced computer program- 
mers. 



nr\T r\ i 

= 2* 



DO Command 

The DO command is used to transfer control to a specified step, 
or group of steps, and then return automatically to the command 
following the f>0 command. 



*1 . 1 SET A=l ; SET B=2 

^ i. *'d. 1 I ." L " S i M fC i 1 .^>i U ■ ■ 

* 1 , 3 DO 3,2 

*2.1 TYPE " FIXlISKED" 

*3. 1 SET A = 3; SET B = ii 

*3.2 TYPE %1> A+B 

*CC 

STARTI\'G= 3 FI\'ISKEE= 7* 



If a DO command is written without an argument, FOCAL exe- 
cutes the entire indirect program. 



*1 .3 SET B = 2 

*1 . 5 TYPE %1 , A+B 

*D0 



The following example causes a programming loop, which could 
be terminated by insertin*^ line 1,5 QL^IT^ see below. 



*1 > 1 SET A=l 

*1 .2 TYPE A 

*1 .3 DO 2.0 

*1.4 TYPE "FI>JISHED" 

*2.T SET A=A-1 

*2-2 TYPE A 



DO commands cause specified portions of the indirect program 
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to be executed as closed subroutines. These subroutines may also 
be terminated by a RETURN command, explained below. 

RETURN Command 

The RETURN command is used to exit from a DO subroutine. 
When a RETURN command is encountered during execution of 
a DO subroutine, the program exits from its subroutine status and 
returns to the command following the DO command that initiated 
the subroutine status. 

QUIT Command 

A QUIT command causes the program to halt and return con- 
trol to the user. FOCAL types an asterisk and the user may type 
another command. 

COMMENT Command 

Beginning a command string with the letter C will cause the re- 
mainder of that line to be ignored so that comments may be in- 
serted into the program. Such hnes will be skipped over when the 
program is executed, but will be typed out by a WRITE command. 

WRITE Command 

The WRITE command without an argument can be used to cause 
FOCAL to print out the entire indirect program, allowing the user 
to visually check it for errors. 

A group of line numbers, or a specific line, may be typed out with 
the WRITE command using arguments, as shown below. 



- - - — (FOCAL types all group 2 lines) 

''•'' ■•''"^ '•' (FOCAL types line 2.1) 



* / • ^ 7 '.V R I T E 2 'Z 
'.CRI TE 
".'."R 1 T E 



(FOCAL types all numbered lines) 



More about Symbols 

The value of a symbolic name or identifier is not changed until 
the expression to the right of the equal sign is evaluated by 
FOCAL. Therefore, before it is evaluated, the value of a symbolic 
name or identifier can be changed by retyping the identifier and 
giving it a new value. 
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*SET Al=3t2 
*SET A1=A1 +1 
*TYPE %2^ Al 
10* 

NOTE 

Symbolic names or identifiers must not begin 
with the letter F, 

The user may request FOCAL to type out all of the user de- 
fined identifiers, in the order of definition, by typing a dollar sign 
($) after a TYPE command. 

*TYPE %6.05jS 

The user's symbol table is typed out like this 



A A < :'7( ,9! "5 _ '?! O f?i /:; r^ c; 1 tp j_ ;i, 1 c;, 

B@ (00 )= 1 1 1 1 . i i 

C@(00)= 39.0000 

I@(00 )= 301 .000 

A1(00)= 1050030 

r)@C00)= 0.00000 

E@ (00 )= .00000 



If an identifier consists of only one letter, an @ is inserted as a 
second character in the symbol table printout, as shown in the 
example above. An identifier may be longer than two characters, 
but only the first two will be recognized by FOCAL and thus stored 
in the sym.bol table. Notice that for numbers with more than one 
integer part, the output format operator %6.05 is ignore^ so t^at 
the whole number can be printed. 

Subscripted Variables 

FOCAL always allows identifiers, or variable symbols, to be 
further identified by subscripts (range ±2047) which are enclosed 
in parentheses immediately following the identifier. A subscript may 
also be an expresson: 

*SET Al CI+3*5)=2.7l; SET XI C K+3* J ) =2 • 79 
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The ability of FOCAL to compute subscripts is especially useful 
in gsnerating arrays for complex programming problems. 

When FOCAL types out symbol subscripts, only two digits are 
shown in the range 00-99. Despite this, subscripts up to ±2047 
may be used in calculations, but such programs are probably too 
long to fit in memory. 

ERROR DETECTION IN INDIRECT STATEMENTS 

When an error occurs in an indirect statement, the error message 
is typed out when the statement is encountered during program 
execution. In addition to the error code, FOCAL types the line 
number containing the error, as shown in the following example. 

*1.10 SET A = 2; TYPE "A'SA;,! ' 

*1.20 SET B = 4; TYPE "3'SB;.! 

*1 .30 GOTO 1.01' 

*l./!0- TYPE "A+3'SA+3 

*G0 

A= 2.0000 

B= 4.0000 

?0 3.05 @ 01 .30 

FOCAL executes lines 1.1 and 1.2 and then recognizes that 
line 1.3 is an illegal command. Therefore it issued the error mes- 
sage to show you that an illegal command was used. 

To pinpoint an error in line 3.3, for example, type ''DO 3.3?" 
and the program will be traced until the error is found. 

CORRECTIONS 

If the user types the wrong character, or several wrong charac- 
ters, he can use the RUBOUT key as we explained in Part One, 
which echoes a backslash (\) for each RUBOUT typed, to erase 
one character to the left each time the RUBOUT key is depressed. 
For example, 



*ERASE ALL 

*1 . 1 P\TYPE X-Y 

*1 .2 SET S = 13\\\\X=13 

*WRI TE 
C-F0CAL^1969 

01.13 TYPE X-Y 
01 .20 SET X=13 
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The left arrow (<^) erases everything which appears to its left 
on the same line. 



*i.:RrTE. 

C-FOCAL> 1969 

01.10 TYPE X-Y 
« 1 .PiTi qp.T X= 1 3 



A line can be corrected by retyping the line number and typing 
the new command. 



*14.99 SET C9CN+3) = 15 



is r enlaced bv tvoing 



A^zi.gg TYPE G9/Z5-2 

* V."RI TE 1 4 • 99 

1 /i.aq TVPTT rq/7s-p 



ERASE Command ^„ . ot^ 

A line or group or lines may oe ueieieu d\ ^s^xg ^x.e ^xv. . — 
command with an argument. For example, to delete line 2.21, the 



user types 



* ERASE 2-21 
* 



To delete all of the lines in group 2, the user types 

*ERASE 2.0 

Used alone, withoui an argument, the ERASE command causes 
FOCAL to erase the user's symbols. Since FOCAL may not zero 
memory when loaded, it is good practice to ERASE ALL before 
starting a new program. _ 

Tvoing WRITE after making corrections causes ^^OCaL to 



rf, A w 
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print the indirect program as altered. This is useful for checking 
commands and for obtaining a "clean" program printout. 



ASK Command 

The ASK command is normally used in indirect commands to 
allow the user to input data at specific points during the execution 
of his program. The ASK command is written in the form 

*1 1 .99 ASK X.y,Z 

When line 1 1 .99 is encountered by FOCAL, it types a colon ( : ) . 
The user then types a value in any format for the first identifier, 
followed by a terminator.- FOCAL then types another colon and 
the user types a value for the second identifier. This continues until 
all the identifiers or variables in the ASK statement have been 
given values, 

*1 1 .99 ASK X,Y,Z 
*D0 11 .99 
: 5 : 4 : 3 * 

where the user typed 5, 4, and 3 as the values, respectively, for 
X, Y, andZ. 

FOCAL recognizes the value when its terminator is typed. 
Therefore, a value can be changed but only before typing its 
terminator. This is done by typing a left arrow (<—) immediately 
after the value, and then typing the correct value followed by its 
terminator. This is the exception to the use of the left arrow, as 
explained in the previous section on corrections. 

The ALT MODE key, when used as a terminator, is nonspacing 
and leaves the previously defined variable unchanged, as shown 
below. 



*SET A=5 

• 12 3* ( user depressed the ALT MODE 

*TYPE A key after typing 123) 

5.0* 



2 Terminators are space, comma, ALT MODE, and RETURN keys. 
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ALT MODE is frequently used when the user does not wish to 
change the value of one or more identifiers in an ASK command. 



*11 .99 ASK X,Y,Z 

*D0 1 1 .99 ,^ ,. , . , r 

:5,:4. :3,* fUscr did not wish to entcr new valuc 

*D0 1 1 .99 
: 8 ^ : : 1 ^ * 

*TYPE x,Y,z ^^ ^^^ response to second colon.) 



for Y, so he typed ALT MODE in 



A text string may be included in an ASK statement by enclosing the 
string in quotation marks, just as in the TYPE command. 

*l.i-0 ASK "HOy MA>JY APPLES DO YOU HAVE?" APPLES 

*D0 1.10 

HOW KA:JY APPLES DO YOU HAVE?:S5 

* 

The identifier AP (FOCAL recognizes the first two characters 
only) now has the value 25. 

IF Command 

In order to transfer control after a comparison, FOCAL con- 
tains a conditional IF statement. The normal form of the IF state- 
ment consists of the word IF, a space, a parenthesized expression 
or variable, and the three line numbers separated by commas. 
The expression is evaluated, and the program transfers con- 
trol to the first line number if the expression is less than zero, to 
the second line num.ber if the expression has a value of zero, or to 
the third line number if the value of the expression is greater than 
zero. The IF expression or variable must be enclosed in paren- 
theses. 

The program below transfers control to line number 2.10, 2.30, 
or 2.50, according to the value of the expression in the IF state- 
ment. 

*2.1 TYPE "LESS THAX" ZERO"; QUIT 
'i'2.3 TYPE "EQUAL TO ZERO"; QUIT 

+IF (25-25)2.1^2.3^2.5 
EQUAL TO ZERO* 

The IF statement may be shortened by terminating it with a 
semicolon or carriage return after the first or second line number. 
If a semicolon follows the first line number, the expression is 
tested and control is transferred to that line if the expression is less 
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than zero. If the expression is not less than zero, the program con- 
tinues with the next statement, 



*2.20 IF (X) -L.8; TYPE "Q" 



In the above example, when line 2.20 is executed, if X is less 
than zero, control is transferred to line 1.8. If not, Q is typed out. 



*3.19 IF (8)1.8^1.9 
*3.23 TYPE B 



In this example, if B is less than zero, control goes to line 1.8, if 
B is equal to zero, control goes to line 1.9. If B is greater than 
zero, control goes to the next statement, which in this case is line 
3.20, and the value of B is typed out. 

If a GOTO or an IF command is executed within a DO sub- 
routine, two actions are possible: 

1 . If a GOTO or IF command transfers to a line inside the DO 
group, the remaining! command in. that group will be ex- 
ecuted a& in any subroutine before returning to the command 
following the DO. 

2. If transfer is to a line outside the DO group, that line is exe- 
cuted and control is returned to the command following the 
DO; unless that line contains another GOTO or IF. 



*ERASE ALL 




*1 .1 


TYPE 


"A"; SET x=-i ; 


DO 3.1; TYPE " 


*1 .2 


DO 2 






*2.1 


TYPE 


"G" 




*2 .2 


IF CX)2,. 5j 2 . £j 2 . 7 




*2.5 


TYPE 


"H" 




*2.6 


TYPE 


1 1 T If 




*2.7 


TYPE 


"J" 




*2.8 


TYPE 


"K" 




*2.9 


TYPE 


%2..31> X; TYPE 


" ■•; SET X=X+1 


* 








*3.1 


TYPE 


"B"; GOTO 5.1; 


TYPE "F" 


*5.1 


TYPE 


"C" 




*5. 2 


TYPE 


"E" 




*5.3 


TYPE 


1 It f f 





= bJ 
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(FOGAL types the answer) 

A3CDGHI JK=-1 .0 GIJK= 0.0 GJK= 1-0 BCEL* 

FOR Command 

This command is used for convenience in setting up program 
loops and iterations. The general format is 

The identifier A is initialized to the value B, then the command 
following the semicolon is executed. When the command has been 
executed, the value of A is incremented by C and compared to 
the value of D. If A is less than or equal to D, the comtaand after 
the semicolon is executed again. This process is repeated until A 
is greater than D, at which time FOCAL goes to the next sequential 
line. 

The identifier A. m.ust be a single variable. B, C, and D may 

value C are omitted, it is assumed that the increment is one. If C, 
D is omitted, it is handled like a SET statement and no iteration is 
performed. 

The computations involved in the FOR statement are done in 
floating-point arithmetic, and it may be necessary, in some cir- 
cumstances, to account for this type of arithmetic computation. 

Example 1 below is a simple example of how FOCAL executes 
a FOR command. Example 2 shows the FOR command combined 
with a DO command. 



*F.RA?,F A I., I... 

*1 . 1 SET A=100 

*1.2 FOR B=1^1^5J TYPE %5.02^ "B IS"B+A,! 

*G0 

B IS= 101 .00 

B IS= 102.00 

B IS= 103.00 

B IS= 104.00 

B IS= 105.00 

* 



1 1 on 



Example 2: 



*1.1 FOR X=l W,5;D0 2.0 

*1 .2 GOTO 3. i 

* 

*2.1 TYPE !" "%3^"X"X 

*2.2 SET A=X+100.000 

*2.3 TYPE !" ••%5.02,"A"A 

* 

*3.1 QUIT 
*G0 

X= 1 

A= 101.00 
X= 2 
A= 102.00 
X= 3 
A= 10 3.00 
X= H 
A= 104.00 
X= 5 
A= 105.00* 



MODIFY Command 

Frequently, only a few characters in a particular line require 
changing. To facilitate this job, and to eliminate the need to retype 
the entire line, the FOCAL programmer may use the MODIFY 
command. Thus, in order to modify the characters in line 5 41 
the user types MODIFY 5.41. This command is terminated by a. 
carriage return, whereupon the program waits for the user to type 
that character in the position in which he wishes to make changes 
or additions. This character is not printed. After he has typed the 
search character, the program types out the contents of that line 
until the search character is typed. 

At this point, the user has seven options: 

1. Type in new characters in addition to the ones that have 
already been typed out. 

2. Type a form feed (CTRL/L); this will cause the search to 
proceed to the next occurrence, if any, of the search charac- 
ter. ^ 

3. Type a CTRL/BELL; this allows the user to change the 
search character just as he did when first beginning to use 
the MODIFY command. 
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4. Use the RUBOUT key to delete one character to the left 

each time RUBOUT is depressed. 
5 Type a left arrow («-) to delete the line over to the left 

margin. 

6. Type a carriage return to terminate the line at that point, 
removing the text to the right. 

7. Type a LINE FEED to save the remainder of the line. 

Tu^ x:t> ACT=r at T onH MnnTFV cnminands are generaliv used 
only in immediate mode because they return to command mode 

Tir>r>n r-omrvletior! 

During command input, the left arrow will delete the line num- 
bers as well as the text if the left arrow is the rightmost character 
on the line. 

Notice the errors in line 7.01 below. 



*MODIFY 7.01 

JACK AND B\JILL WSnENT UP TKE KAMLL 

*VRITE 7.0 1 

^/ 7 » '^ ' uAiCPI -AND -JILL V.'E-MT uF TH-i^ ^.xl^l.. 






To modify line 7.01, a B was typed by the user to indicate 
character to be changed. FOCAL stopped typing when it en- 
countered the search character, B. The user typed the RUBOUT 
key to delete the B, and then typed the correct letter J. He then 
typed the CTRL/BELL keys followed by the $, the next character 
to be changed. The RUBOUT deleted the $ character, and the 
user typed an E. Again a search was made for an A character. This 
v/as changed to L A LINE FEED was typed to save the remainder 



Ul LllC llllC. 



Caution 

When any text editing is done, the values in the user's symbol 
table are reset to zero, inererore, u uic usci utmi^-o ma ;yyxi.xi^y,x^ ... 
direct statements and then uses a MODIFY command, the values 
of his symbols are erased and must be redefined. 

However, if the user defines his symbols by means of indirect 
statements prior to using a MODIFY command, the values will not 
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be erased because these symbols are not entered in the symbol 
table until the statements defining them are executed. 

Notice in the example below that the values of A and B were 
set using direct statements. The use of the MODIFY command 
reset their values to zero and listed them after the defined symbols. 



*ERASE ALL 

*SET A=l 

*SET B=2 

*1 . 1 SET C=3 

*1 .2 SET D=4 

*1.3 TYPE A+B+C+D; type !; TYPE $ 

*MODIFY 1 . 1 



SET 


C = 3\5 


*G0 




= 9.00 




ca(00)= 


5.00 


D@C00) = 


4.00 


A@C00)= 


0.00 


B@ (00 ) = 


.00 


* 





USING THE TRACE FEATURE 

The trace feature is useful in checking an operating program; 
those parts of the program which the user has enclosed in question 
marks will be printed out as they are executed. 

In the following example, parts of 3 hnes are printed. 



*EHASE ALL 

*1 • 1 SET A = l' 

*1 .2 SET B=5 

*1 .3 SET C = 3 

*1 .4 TYPE 7o2. ?A+3- 

■*1.5 TYPE ?B+A/C?j! 

*1 .6 TYPE 73-C/A? 

*G0 

A+E-C= 3 

B+A/C= 5 

B-C/A= 2* 



When only one ? is inserted, the trace feature becomes opera- 
tive as FOCAL encounters the ? during execution, and the pro- 
gram is printed out from that point until another ? is encountered 
The program may loop through the same ? until an error is en- 
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cauntered (execution stops and an error message is typed), or until 
program completion. 



*ERASE ALL 

*1.1 ?SET A=0B; type %3^A! 

*1.2 FOR B = l.l:.4; TYPE B+A! 

*G0 . 

SET A=0B; TYPE %3^A! 

= S t On B^iJij-yj i i r £. u'.-i. 

i TYPE 3+A! 
= 2 TYPE B+A! 
= 3 T'^E B+A: 
= 4* 



In this example, FOCAL encountered the ? as it entered line 1.1 
and traced the entire program. 

MATHEMATICAL FUNCTIONS 

The functions are provided to improve and simplify arithmetic 
capaDiiities ana lo give puicuucti lui cApanaiUii >.yj a.^^r^>.<^^^^^ ...j^-w, 
output devices. A standard function call consists of four (or fev^'er) 
letters beginning with the letter F and followed by a parenthetical 
expression. 



FSG>JCA-B=^2) 



r^-. ^1. 1 ;_ i ^c f^-,^,^4-',^r,c • c.tTnT->1c c>Ytf»nH<=»fl and 

mere are mree uaMc L}'pcb ul iuiivuv^iio. omij^iv^, w...vw*.^ — , — — 

I/O. The first type contains integer part, sign part, absolute value 
and square root functions. 

Tn the second type, the extended arithmetic functions, are loaded 
at the option of the user. They compute logarithms, exponentials, 
arctangents, sines, and cosines. 

The input/ output functions are the third type. These include a 
nonstatistical random number generator (FRAN) whose value 
ranges from .5 to .9. There are also functions available to control 
scopes and analog- to-digital converters. 
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Square Root 



The square reot function (FSQT) computes the square root of 
the expression within parentheses. 



*TYPS 


%2^ 


FSQTC4) 


= 2* 






*TYPE 


FSQT 


■(9) 


= 3* 






*TYPE 


FSQT 


'C 1 44) 


12* 





Absolute Value 

The absolute value function (FABS) outputs the absolute 
or positive value of the number in parentheses. 



*TY?E FA3S(-66) 

= 66* 

*TY?E FA3S(-23) 

= 23* 

*TYPE FABS C -99) 

= 99* 



Sign 

The sign part function (FSGN) outputs the sign part (+ or — ) 
of a number wiuh a value of 1 . 



*TYPE FSGX(4-6) 

= - 1 * 

*TYPE FSG\'(4-4) 

1 * 
*TYPE FSG>:C-7) 
= - 1* 



Integer 

Ii 
ber. 



teger 

Integer part function (FITR) outputs the integer part of a num- 

r 



*TYPE FITR (5.2) 

5* 
*TYPE FITR(55.66) 
= 55* 

*TYPE FITRC77.434) 
= 77* 
*TYPE FITRC-4. 1 ) 
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Random Number Generator 

The random number generator function (FRAN) computes a 
nonstatistical pseudo-random number between 0.5000 and 0.9999. 



*TYPE %;. FRA}C( ) 
= 0. 607295E + 00=^ 
*TY?E FRAXU ) 
= . 73761 5E+00* 



Exponential 

The exponential function (FEXP) computes e to the power 
within parentheses, (e = 2.718281) 



*TYPE FEXP (• 666953) 
= 0.194829E+01* 
*TYPE FEXP ( 1 .23456) 
= .343687E+01* 
*TYPE FEXPC -1 . ) 
= • 367879E+00* 



Logarithm 

The logarithm function (FLOG) computes the natural logarithm 
(ioge) of the number within parentheses. 



i - . ^ i i_. '_. L I. i • & lil O i'J vj ) 
= .000000 E+00* 

*TYPE FLOGCl .98765) 

== 3 • 6869 53E + 00=*' 

*TYPE %5.03^ FLOGC2.065) 

= 0.72 5* 



Arc Tangent 

The arc tangent function (FATN) calculates the angle in radians 
whose tangent is the argument within parentheses. 



*TYPE FATX'C 1 . ) 
= 0. 78539-8E+00* 
*TYPE FATMC . 31 305) 
= 0.303386E+00* 
*TYPE FAT\U3.1 41 592) 
= 0.126263E+01* 
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Sine 

The sine function (FSIN) calculates the sine of an angle in 
radians. 



*TYPE %^ FSI\K3. 141 59) 
= 0.333786E-05* 
*TYPE FSIXUl .430 ) 
= 0.985448E+00* 



Since FOCAL' requires that angles be expressed in radians, to 
find a function of an angle in degrees, the conversion factor, tt/ISO, 
must be used. To find the sine of 15 degrees, 



*SET PI=3.14159J TYPE FSI\"C1 5*P I / 1 80 ) 

= 0.258819E+00* 

*TYPE FSINC45*3. 141 59/180 ) 

= 0.707106E+00* , 



Cosine 

The cosine function (FCOS) calculates the cosine of an angle 
in radians. 



*TYPE- FC0SC2*3.141 592) 

= 0.999996E+00* 

*TYPE FCOSC .50000) 

= 0.877582E+00* 

*TYPE FC3SC45*3. 141 592/1 80 ) 

== 0. 707107E + 00* 



These trigonometric functions may be combined to calculate 
other functions as shown in the following table. 
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Table 11-1 
Calculating Trigonometric Functions in FOCAL 



Function 



Cosine 
Tanaenf' 



Cosecant 

Cotangent 

Arc sine 
Arc cosine 
At'c fongeril 
Arc secant 
Arc cosecant 
Arc cotangent 
Hyperbolic sine 
Hyperbolic cosine 
Hyperbolic tangent 

Hyperbolic secant 
Hyperbolic cosecant 
Hyperbolic cotangent 

Arc hyperbolic sine 

Arc hyperbolic cosine 

Arc hyperbolic tangent 

Arc hyperbolic secant 

Arc hyperbolic 
cosecant 

Arc hyperbolic 
cotangent 



FOCAL Representation 

PC OS (A) 
FSiN(A)/FCOS(A) 

1/FC0S(A) 



1/FSIN{A) 

FCOS(A)/FSIN(A) 

FATN(VFSQT(1-At2) 
FATN(FSQT(1-AT2)/A) 

rf-\i iN\M/ 

FATN(FSQT(AT2-I)) 

FATN{1/FSQT(AT2-1)) 

FATN(1/A) 

(FEXP(A)-FEXP(-A))/2 

(FEXP(A)+FEXP(-A))/2 

{FEXP(A)+FEXP(-A)) 

2/(FEXP{A)+FEXP(-A)) 

2/{FEXP(A)-FEXP(-A)) 

(fexp(a)+fexp{-a))/ 
(FEXP(a)-FEXP(-A)) 

FLOG(A+FSQT(AT2+1)) 

FL0G(A+FSQT(AT2-i)) 

(FLOG(l+A)-FLOG(1-A))/2 

FLOG((l/A>t-FSQT((l/AT2)-l)) 

FLOG((i/'A>+FSQT(0/'AT 2)+l )) 



{FLOG(X+l)-FLOG(X-l))/2 KA<10T616 



Argument 


Function 


Range 


Range 


A/ i A i _^i Pi* J 


u< r , VI 


0<UklOT4 


0<tFki 


0<;A|<10T4 


0<|Fk!0T6 


JA'?^(2N+l)Tt/2 




0<JA'<10T4 


K F <10T6 


Ai7^(2N+l)iT/2 




0<!a <10T4 


K F<10T6 


|A:7^2NTr 




0<JAi<10T4 


0<:Fk]0T440 


A V2Nw 




0<|A:<1 


o<:fi<it/2 


0<iAi<l 


0<;Fi<ii/2 


WsjHV I u t o 


u<Fv-!r/ z 


l<A<10t6 


0^<Tr/2 


1<A<10T300 


0<F<Tr/2 


0<A<iOT615 


0<F<ii/2 


0<iAi<700 


0<:F|<5*10T300 


0<]A|<700 


KF<5*10T300 


0<|Ak700 


0<iFi<i 


OK A k 700 


0<F<1 


0<!A;<700 


0<!Fk]0T7 


0<|Ai<700 


l<|FklOT7 


-10T5<A<10T600 


-12<F<1300 


l<A<10t300 


0<F<700 


o<!aI<i 


0<iF!<8.31/// 


D<|Aj<t 


q<F<700 


0< lA i<iO '300 


0<JF <i400 



0<F<8 



1 t-OR 



PROGRAMMING TECHNIQUES 

To decrease program length, maximize available core area, and 
assist in preparing complex routines, the experienced programmer 
can implement the following suggestions : 

1. All commands can be abbreviated to their jfirst letter. 

2. A string of commands, except WRITE, RETURN, MOD- 
IFY, QUIT, T $, and ERASE, can be combined on one line 
(up to 72 characters), with each command separated by a 
semicolon. 

3. When creating a lengthy program, it is a good programming 
practice to leave free line numbers scattered throughout the 
body of the program. This will permit insertion of additional 
comma'fids without complicated referencing routines. Re-. 
member that programs are executed sequentially by Hne 
number; consequently, an addition to the program placed 
physically at the end will be executed in turn. Line numbers 
must be in the range 1.01 to 31.99. 

4. Some programs may require a keyboard response of YF^S or 
NO to a question asked during program execution. The 
answer typed to the question determines the next command 
to be executed (for example, in the initial dialogue). For this 
purpose, alphanumeric numbers are used in an IF statement 
to direct the execution. 



*1.1 TYPE "DO YOU WA\^T A LINE?";.! 

*1.2 ASK "TYPE YES OR NO"^ANSj ! 

*1.3 IF (ANS-0YES)2.1.2.2:.2.1 

* 

*2.1 QUIT 

*2.2 TYPE " "j ! 

*2.3 GOTO 1 . 1 

*G0 

DO YOU WANT A LINE? 

TYPE YES OR NO: YES 



DO YOU WANT A LINE? 
TYPE YES OR NO: NO 



If the user types the answer YES, the identifier ANS is 
given the alphanumeric value of YES. When the IF statement 
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is executed, the parenthetical express in ANS-OYES equals 
zero, and the command at line 2.2 is executed. If the user 
types YES in answer to the ASK question, then when its 
alphanumeric value is substituted in the parenthetical expres- 
sion, the expression will not equal zero and line 2.1 will be 
executed. Note that for YES/NO responses, the sign of the 
parenthetical expression is irrelevant; only its zero or non- 
zero value is of interest. 

5. To avoid filling storage with the push-down list during long 
routines, it is helpful to limit the number of levels of nested 
expressions in a command. Use of abbreviations and limited 
number of variable names will maximize storage space. An 
FCOM function to increase variable storage is explained in 
DEC-08-AJBB-DL, Advanced FOCAL Technical Specifi- 
cations. 

FOCAL SYSTEMS 

TTKp nci=»r \i;Tir» lioc -mictarckA tVt^ fj.»>^.^v»->o^*«1 XI!(~\/~* A 7 e'T'>*a-~' 

can appreciate the expanded FOCAL capabilities. Primarily, there 
are two ways to increase FOCAL's powers : 

L Share FOCAL on a single computer with more than one 

person (multi-user segments) 
2. Expand a single user system to allow longer programs, im- 
proved accuracy, and graphic display (additional segments). 
Table 11-2 describes all segments of FOCAL. Each is available 
on binary coded paper tape. A simple one-pass loading procedure 
adds these extra capabilities to the FOCAL system. 

FOCAL Segjfsents 



Segment Name 


Function 


Interpreter System 


The interpreter, Teletype input/output 
handler, and modified floating-point 
package. 

The binary tape for the initial dialogue 
program. 


FOCAL and FLOAT 
INIT 
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Table 11-2 (Confmoed) 
FOCAL Segments 



Segment Name Function 


Additional Segments 


Extended accuracy overlay to FLOAT 
(gives 10 digits). 

Allows one user to take advantage of 
an 8K PDP-8. 

Permits scope to interact with FOCAL 
to display vectors, arcs and cursors. 
For use with an incremental plotter. 
For use with KV8/I. 


Utility 
Package 

Graphics 
Package 




4-WORD 

8K 
CLINE 
PLOTR 
GRAPH 


Multi-User Segments 


Allows multiple users (up to seven) to 
run and save FOCAL programs on an 
8K PDP-8 with Disk. 

Allows multiple users (up to four) to - 
share FOCAL on an 8K PDP-8. 


LIBRA 
QUAD 



Multi-User Segments 

FOCAL can be shared simultaneously by more than one user 
by parcelling computer time among the various users. Such a sys- 
tem, referred to as time-sharing, permits one computer to serve 
several persons, allowing each user to feel he has the system all to 
himself. No detectable delays occur under normal operating con- 
ditions. With a very heavy workload^ some users may detect only 
a slight delay, less than a second, in response to their commands 
to FOCAL. 

The two multi-user systems associated with FOCAL are detailed 
below. 

QUAD (Four-User FOCAL) 

QUAD permits from one to four persons to use FOCAL simul- 
taneously on an 8K PDP-8, -8/L, or -8/1 Computer. Up to four 
Teletype consoles and appropriate PT08 (or DC02 for 8/L) com- 
municating units are required. 
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LIBRA (Seven-User FOCAL) 

LIBRA allows up to seven persons to use FOCAL efficiently 
on one 8K PDP-8, 8/1, or 8/L Computer. LIBRA requires, in ad- 
dition to from one to seven Teletype consoles, appropriate PTOS's 
or DC02's, and at least one disk (RF08 or DF32). There are 
two versions of LIBRA available, depending on the user's disk sys- 
tem, i.e., RF08 or DF32 version. A disk initialization routine, 

T^TClirTXT --^^^s-r^Qt-isci +Ua Ai<-X,- -f^— ,•.„« U,T T TT3T> A \J7:i.\. T TT>-r-» A --,^^ 

x^j-k^xi-txT, jjAwpdiUi i,iiV U-iaJS. i.KJL use uy l^lOjS^t\. VViLii ivii3rC/\, USCI 

programs can be saved, retrieved, or deleted from the disk by 
library capabilities, i.e., each program is assigned a name by the 
user, an^ a turee-w^ord command tells LIBRA what to do with 
that program. In all cases, the name of a program must be one 
to four characters. A directory of saved (stored) user programs 
can also be listed by LIBRA. 

LIBRA Commands 

There are four LIBRA commands to perform the LIBRARY 



e. 4.: 

lUilCLlUllb. 



i . To save a program on the disk, use the command 
LIBRARY SAVE nam.e 

^ -.iio oiii j^v/i>.^ 1.1JV. s^±x>.ii.i^ pjiwgiain \jii Hit- UISA. lUi iULUiC UiC, 

2. To call a stored program from the disk, the command 

3.10 LIBRARY CALL name 

will bring the named program into the user's area. If this is 
followed by: 

3.11 CONTINUE 

Execution begins at the first line of the called program, as 
if the user had typed a GO command. 

3. If a stored program is no longer needed, it may be removed 
from the disk by 

T TPPAPV r)FT PTP r,p«,o 

4. The user may wish to have LIBRA list the names of all 
the programs it has stored on the disk. Use 

LIBRARY LIST 
to obtain the directory of stored program names. Note that 

vi»w j-yjLjjj,vi ixV A j^xu JL >^vjimiiaina u^.^auujS any jjiKj^kani iii uxc 

active user's area by an ERASE ALL. 

While using these library commands to the disk, very few errors 
are possible. When saving a program (refer to subparagraph (1) 
above), LIBRA may find a program with an identical name in its 

11-32 



directory list. Because each stored profTam must have a different 
name, the present program cannot be stored until the user gives it 
a new name. Also, the directory may be full already; therefore, 
this program cannot be stored. 

After the program has been stored and the user wants to call or 
delete it from the disk, the only error possible is that LIBRA may 
find no such program name in its directory. Check your typing to 
be sure you spelled the program name correctly. The error codes 
for the above have the same format as normal FOCAL error code. 
They are listed in the summary of error messages. 

Common Storage Function 

LIBRA has swapping abilities which permit users to trade pro- 
grams and data. The FCOM function allows a program to pass up 
to five arguments to another program. It is used as follows: 

FCOM (J,Z) stores element Z in array element J 
FCOM (J) retrieves array element J 

Index J has a range of 0< J <4. 

The FCOM function is explained fully in LIBRA System Spec- 
ifications (DEC-08-AJCA-DL). 

Limitations on Focal with Libra 

When operating at full capacity, LIBRA places only a few 
limitations on FOCAL, none of which interfere with normal system 
operation. These limitations are: 

1. The command for the high-speed reader is inoperable. 

2. The FADC (analog to digital conversion) and FDIS (dis- 
play) functions may be used by only one user at any given 
time. 

3. None of the additional FOCAL segments (see below) are 
compatible with LIBRA. 

4. The use of the trace feature should be limited to prevent 
delaying execution of other users' commands. Trace only as 
few character"^ as are necessary. To stop a program while 
using the trace feature, it may be necessary to depress 
CTRL/C more than once. 

5. The search character of the MODIFY command is echoed. 

LIBRA is described more fully in LIBRA System Specifications 
(DEC-08-AJCA-DL). 

11-33 



ADDITIONAL SEGMENTS 

FOCAL's capabilities can be expanded to provide greater ac- 
curacy, larger user program size, increased variable storage, and 
handle various graphic devices. These features are provided by 
overlay tapes as described belovv^. The powers and uses of the 
segments are described below. 
Utility Package 

xiiw LitinLJ yay^r^a^K^ iiiCiuuci LiiC lUiiUW'iriX- 

4W0RD 

To increase FOCAL's accuracy to 10 digits for arithmetic op- 
erations. Because of this increased accuracy, there is a small de- 
crease in the number of program variables that can be stored. Note 
that extended functions, trigonometric and exponential, are ac- 
curate to 6 places. 
8K 

To increase program size, the 8K overlay activates an additional 
4K of core memory. This permits significantly longer programs to 
be used with no decrease in the number of program variables that 
can uQ storcu. i tic user s system must nave 8K hardware for this 
segment. The 8K system has all the capabilities of 4K FOCAL, 
with the exception that the MODIFY command and other text 
changes do not erase variables. Only an ERASE command will 
clear the storage area in 8K FOCAL, 

CLINE Graphics Package 

By interfacing a PDP-8 system with a VC8 control unit which 
will handle a variety of display devices (34D, Tektronix 611) and 
loading the CLINE overlay, vectors and arcs are displayed for 
visual inspection. The coordinate systems vary for these instru- 

coordinate system of which is: 

0,800 



0,0 300,0 
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CLINE is especially useful for numerical control. CLINE can 
produce two basic types of lines: vectors and arcs; each type has 
a fundamental command string and the two can be combined at 
any time. CLINE will dispay a vector, the starting and ending 
points of which (XO, YO and X,Y, respectively) have been defined. 
To display a line, a DO 17 command must be incorporated into 
the program after each set of ending points has been assigned. The 
following four lines must be added to the program to display a 
line: 

.*16.2 SET P=X-X0J SET Q = Y-Y0; SET R = FSQTC Q t 2+P t 2 ) 

*16.3 SET Z = FDISC6.3*R*CjP^Q;.X0:. Y0^S/R) 

*16.4 SET X0=X; SET Y0 =Y 

*17.1 DO 16.2; SET Z = FDI S C R:. P/R^. Q/R:- X0 ^ Y0 :.0 ) ; DO 16.4 

Note that Hne 17.1 resets the values of XO and YO to the pre- 
vious ending points, X, Y, by a reference to line 16.4; thus, the 
end of one line automatically becomes the start of the next hn-e. 
To start the next line from a different point, assign new values to 
both the starting and ending points. 

To display an arc, the following variables must be defined: 
XO, YO center 

X,Y starting point ( /(X-XO)^ + (Y-YO)^ ^radius) 

C circumference, where 

C = .5 is a semicircle; C = 1 is a full circle 
S direction, where 

S =+1 counterclockwise; S =—1 clockwise 



C=.25 
S= + 1 



XO.YO X.Y 



After assigning values to the above variables and creating the 
routine to perform, increment, and restart the display pattern, a 
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DO 16 command must be put in the program to perform the actual 
display function evaluation for each set of values and then project 
the results on the scope. The group 16 commands for arc gen- 
eration are as follows : 



*16.2 SI 



P=X-X0; SEl 



-Y0; SET H=FSQTCQT2+Pt2) 



*16.3 SET Z = FDISC6.3*R*C^P^Q,X0:,Y0^S/R) 
*16.4 SET X0=X; SET Y0=Y 



As vAth line drawing, the last values assigned to X and Y, now 
the starting point of the arc, becom.e the values of XO and YO, 
which here define the center of the next arc to be drawn. 

For example, the following routine will dispay an arc enclosed 
within a square on a 34D scope. 



*1.10 SET C=.5J SET S=l; SET A=800 

*1.20 SET X0=0; SET Y0=0 

*l-30 SET X=A; set Y=Y0; DO 17; SET Y=A; do n; SET X=0j DO 17 

*1 .40 SET Y=0; DO 1 7 

*1.50 SET X0=400; SET Y0=400J SET Y=Y0; SET X=200 5 DO 16 

*1 .60 GOTO 1 .20 

*16.2 SET P=X-X0; SET Q=Y-Y0; SET R=FSQTCQ t 2+P » 2 ) 

*16.3 SET Z = FDIS<6.3*R*C:.P,Q^X0^Y0^S/R) 

*16.4 SET X0=X; SET Y0 =Y 

*17.1 DO 16.2; SET-Z; = FDIS(R^P/R:,Q/RjX0jY0^0-); do 16.4 

*G0 



Lines 1.1 and 1.5 defined a semicircle to be displayed inside the 
box described in lines 1.2, 1.3, and 1.4. When line 1.6 is reached, 
CLINE will first dispay the box, and then jump to the semicircle. 
The above program produces the pattern shown in Figure 11-1. 



0,800 




800,0 



Figure 11-1 CLINE Example 
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PLOTR 

An incremental plotter can be added to a graphics system by 
using the PLOTR overlay instead of CLTNE (refer to Table 1 1-3). 
The three original CLINE functions (FDIS group) are available to 
the user. This system permits the user to design and debug a pic- 
ture on a scope with CLTNE before obtaining a hard copy with 
PLOTR. 

An incremental plotter can be added to a graphics system by 
using the PLOTR overlay with CLINE (refer to Table 11-3). The 
three original CLINE functions (FDIS group) are available to the 
user. The PLOTR system permits the user to design and debug a 
picture on a scope before obtaining a hard copy. 

GRAPH 

A powerful graphics function is available for the appropriate 
KV 8/1 device with a joystick cursor. The overlay, GRAPH, 
contains an X-Coordinate Cursor Read function, FCOM(O), and 
a Y-Coordinate Cursor Read function, FCOM(l). These two 
functions can be combined with the other GRAPH functions which 
are in the form FX( ), for complete graphic control, including 
display of vectors and arcs, use of the cursors, and erasure of the 
screen. The interrupt button causes execution of group 31. 

Table 11-3 
Graphics Systems 



Name 


Function Call 


Results 


Device 


built in 


FDIS (X,Y) 


points 


VC8 and 
display 
LAB-8 (AX08) 


CLINE 


FDIS (R.P/R, 
Q/R,X,Y,0) 

FDIS (6.3*R^=C, 
P,Q,X,Y,S/R) 

FDIS (, , , X,Y,) 


vectors 

arcs 
points 


VC8 and 
display 


CLINE and 


same as CLINE 


same as CLINE 


LAB-8 (AX08) 


LAB-8 








(manual 
patches) 
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Table 11-3 (Gontinued) 
Graphics Systems 



Name 


Function Call 


Results 


Device 


PLOTR 


same as CLINE 


same as CLINE 


Incremental 

T)l«*4.„. I 

JL lUllCl UIIU 

VC8 


GRAPH 


FCOM (0) 


value is cursor 


H306 joystick, 






X coordinate 


KV8 and 
display 




FCOM (1) 


value is cursor 


H306 joystick, 






y coordinate 


KV8 and 
display 




group 31 called 


synchronizes x, 


KV8 and 




by interrupt 


V cursors with. 


Hi«n1nv 

jr — J 




bar 


external 








events 






FX (0,441,X,Y, 


vectors 






XO.YO) 








FX (C*64,211, 




KV8and 




X,Y,XO,YO) 


arcs 


displays 




FX (, 4, , , ,) 


erases screen 






FX (, 1400, , , ,) 


displays cursor 





WORKABLE OVERLAY COMBINATIONS 

These overlays can be combined with 4K FOCAL to produce 
a system with vastly increased powers that will optimize the in- 
dividual user's system. Table 11 -4 shows the workable FOCAL 
segment combinations. The initial dialogue and Disk Monitor Sys- 
tem are included in these combinations to illustrate the many sets 
possible. 

In addition to directing graphics instruments, FOCAL can direct 
various other instruments using special programs written by the 
user. The extended functions'^ option allows the user to tailor the 



3 See DECUS Document FOCAL-17, How to Write New Subroutines. 
FOCAL system to his own specifications. 
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Table 11-4 

Allowable FOCAL Systems 

1 —Must be loaded into field one 

—Must be loaded into field zero 

X— Cannot be accepted 

Y— Command may be used if disk system is built 

N— Command is illegal 

* —Command is different 





Allowed 






Combinations are 






Indicated by 


Minimum 




Entries in Vertical 


Hardware 


Binary Segment 


Columns 


Required 


FOCAL 


11 1 1 


4K 


INIT (optional) 
4W0RD 




11 


4K 


8K 





8K 


QUAD (non-8/ S) 
LIBRA (non-8/S) 
CLINE (optional) 
PLOTR (calcomp) 
GRAPH (KV 8/1) 
LIBRARY COMMAND 







YYYYNN* * 


8K/PT08S 
8K/PT08S/DF32 
Graphics Terminal 

DF32 


(for Disk Monitor) 






FOCAL is always loaded i 


irst in the proper field. 





Current FOCAL Tapes and Documents 

The following program tapes and documents comprise the 
FOCAL 1969 software package currently offered by DEC. This 
list is subject to revision at any time. The last two letters in these 
product codes stand for: D, document; PB, paper tape; LA, listing. 



FOCAL-8 Manual 
FOCAL, 1969 + INIT (4K, INIT) 
Listing (Includes Utility Overlays) 
Utility Overlays for FOCAL, 1969 Tape 

(4W0RD, 8K) 
Advanced FOCAL Technical Specifications 
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DEC-08-AJAD-D 

DEC-08-AJAE-PB 

DEC-08-AJAE-LA 



DEC-08-AJ1E-PB 
DEC-08-AJBB-DL 



Graphic Overlays for FOCAL, 1969 

(CLINE, PLOTR, GRAPH) DEC-08-AJ2E-PB 

Listing (of above) DEC-08-AJ2E-LA 

Extended Functions for FOCAL, 1969 

(REPLACE, REMOVE) DEC-08-AJ4E-PB 

Multi-user Overlays for FOCAL, 1969 

T JcfJ^rr /'^f r.U/-,^,f»\ TMI'/^ AQ A TCT^ T A 

Multi-user Overlays for FOCAL, 1969 

(LIBRA.RF08, DISKIN.RF08) DEC-08-AJ6E^PB 

Listing (of above) DEC-08-AJ6E-LA 
Four User Overlay for FOCAL, 1969 

(QUAD.PT08) DEC-08-AJ7E-PB 

Listing (of above) DEC-08-AJ7E-LA 
Four User Overlay for FOCAL, 1969 

(QUAD.DC02) DEC-08-AJ8E-PB 

Listing (of above) DEC-08-AJ8E-LA 

All the above articles may be purchased from the DEC Program 
Library. Bldg, 3-5, Maynard, Mass. 01754. 

ESTIMATING PROGRAM LENGTH 

symbol table, and one word for each two characters of stored pro- 
gram. This can be calculated by 

c 
5s -i 1.01 = length of user's program 

where s = Number of identifiers defined 

c = Number of characters in indirect program 

If the total program area or symbol table area becomes too 
large, FOCAL types an error message. 

FOCAL occupies core locations Ig through SlOOg and 46008 
through 75768. This leaves approximately 700io locations for the 

llCf^t" S rvTr^rrriSTn { iryA-iff^^r^f ■rsrr^fTrram t/^*::»t-if-i^«:>T*o r3-nA r\\ic\^—Ar\txrr^ Itcf^ 

The extended functions occupy locations 4600-5377. If the user 
decides not to retain the extended functions at load-time, there will 
be space left for approximately 1 1 OOio characters for the user's pro- 
gram. 
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The following routine allows the user to find out how many core 
locations are left for his use: 

*FOR I=1^300J SET ACI)=I 

?£"ci;?o;s°£S!-- -"■■ (disregard error code) 

A LOCATIONS command can be given with a paper-tape sys- 
tem to determine how much space remains in core for user pro- 
grams and variables. Execution of this command causes FOCAL 
to print four octal numbers (core memory works on a base 8 
number system) representing the following locations within core: 

1 . start of text bulTer ] . , 

I space tor user s program 

2. end of text buffer J |^ space for storing variables as- 

3. end of variable list f n signed during program 

4. bottom of push-down list j space for subroutines 

The LOCATIONS command permits the user to optimize his 
available storage space and to determine program length. If an 8K 
paper-tape system is being used, the values of 1 and 2 point to 
field 1. Locations 3 and 4 always point to field 0. The LOCA- 
TIONS command, for example, can be used after the three pos- 
sible initial dialogue responses to indicate how much core each 
allows the user. 

Dialogue response Yes/Yes No/Yes No/No 

Locations 



*L 


*L 


*L 


3206 


3206 


3206 


3217 


3217 


3217 


3217 


3217 


3217 


4617 


5177 


5377 



To get another * in order to continue with FOCAL after it has 
printed the four locations, the paper-tape system user must put 
5177 in location 7600. If this is neglected, a manual restart is 
necessary. 

Disk Monitor System users also have a command that indicates 
storage allocation: LINK. The LINK command for the Disk Mon- 
itor System is more limited than the LOCATIONS command for 
the paper tape system. LINK must be used only to return to the 
Disk Monitor; it cannot be used arbitrarily to determine core al- 
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location. LINK types out four locations, in the same fashion as the 
LOCATIONS command, but then types a period, indicating that 
control has been transferred to the Disk Monitor. A command to 
the disk must then follow. 

When storing a program on the disk, the LINK command max- 
imizes storage space by specifying the exact amount of memory 
that is filled by text, variables, and subroutines. The core locations 
orinted out bv LINK are used in calls to the Disk Monitor. 

LOADING PROCEDURES 

Read-In Mode (RIM) Loader 

The RIM Loader is used to load the Binary Loader. For a de- 
tailed description see Appendix C2. 

Binary (BIN) Loader 

See the description of the BIN Loader in Appendix C2. 

USING THE BINARY LOADER 

Th^ T^TM I naAp-r wiiU V\f^ ncprl fo lo^^ ^ \;i^r!pfv '"-^ r.rr.c r;;;".'".^ wi^^"- 

the following general procedures: 

1. Put tape-to-be-loaded into the reader with leader-trailer 
code over the read head. Set reader control lever to 
"START." 

2. Set SWITCH REGISTER to 7777 (all switches up). 

3. Set MEM PROTect down (if present). 

4. Set INST FIELD to the field address of the BIN Loader 
(zero, or all down for the usual case). 

5. Set DATA FIELD to the address of the field into which the 
tape-to-be -loaded is going. Depress LOAD ADDress. 

f\ Tf tVif^ KirrVi-cr^AAr! r^QrI(=>r ic tr> Ka ncArl ■m^t r\r\\X}r\ Hit C\ 

7. Depress LOAD ADDress; depress START switch. 

8. Tape should begin reading in; if not, reload the BIN Loader 
and try again. 

9. When tape stops check contents of ACCUMULATOR. If it 

l-%rte i^'nt? K *-*-1-*-*-r' /A 1 1 ^ K-f rr/^ V\f^ r*}^ i-r\ o^^aT^ 1 oK/^\?^ 

Paper-Tape System 

FOCAL LOADING PROCEDURE 

The Binary Loader is used to load FOCAL. Check to- see if 
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the Binary Loader is in core. If location 7777 contains 5301, the 
Binary Loader is probably in core; if not, load again. 
The procedure for loading FOCAL is detailed below. 

1. Load the FOCAL binary tape into field zero as described 
under the Binary Loader. 

2. The FOCAL tape will halt once while loading. If all lights 
in the ACCUMULATOR are out, depress the CONTinue 
key and the tape will finish loading. If any lights are lit in 
the ACCUMULATOR, the FOCAL program has been 
loaded incorrectly; return to Step 1 immediately preceding. 

3. Set INST FIELD and DATA FIELD to zero (down). Set 
MEM PROTect up (if present). 

4. Place 0200 (the starting address of FOCAL) in the SWITCH 
REGISTER, and depress the LOAD ADDress key. 

5. Press the START key. The FOCAL Initial Dialogue will 
begin. Answer the questions. 

FOCAL RESTART PROCEDURE 

Two methods for restarting the system are outlined below. 

Hit the CTRL/C key at ^any time.^ FOCAL will type 701.00 
indicating a keyboard restart, , and an asterisk on the next line 
indicating it is ready for user input. 

OR 

1. Depress the STOP switch. 

2. Put 0200 in the SWITCH REGISTER (only switch =r4 is 
up). 

3. Depress the LOAD ADDress switch. 

4. Depress the START s\^!tch. 

5. FOCAL will then type *?00.0C indicating a manual restart, 
and an asterisk on the next line, indicating it is ready for 
user input. 

SAVING FOCAL PROGRAMS 

To save a FOCAL program on-line, proceed as follows: 
L Respond to "*" by typing WRITE ALL (do not depress 
the RETURN kev vet. 



"* CTRL/C indicates holding down the Control key while depressing 
the "C" key. This convention is used throughout the loading procedures. 
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2. Turn on low-speed tape punch by pushing down the "ON" 
button. 

3. Type several "@" signs to get leader tape (simultaneously 
hold down the "SHIFT", "REPT", and "P" keys in that 
order, release in the reverse order). 

4. Depress the "RETURN" key. 

When the orosram has been orinted and Dunched out: 

5. Type several more "@" signs to get trailer tape. 

X U-X 11. Oil. I-IIV^ LCtpW p U.llV-'ll . 

The user may now continue with another FOCAL program.. The 
previous FOCAL program still in the computer. 

Multi-User Systems 

LIBRA LOADING PROCEDURE 

LIBRA is loaded over FOCAL. For this system., FOCAL is 
loaded into field 1 . The Binary Loader, hov^ever, must be in field 0. 
Do not load FOCAL's Intial Dialogue. The Disk "WRITE LOCK" 
switch must be off. 

1. Load the FOCAL binary segm.ent into field 1 using the 
description in the section on the Binary Loader. 

2. Load the LIBRA binary segment into field as described 
under the Binary Loader. 

3. When the tape halts, depress the CONTinue switch. The 
tape will continue to load in. Load DISKIN (the binary 
segment after LIBRA) the same way. 

4. Set INST FIELD and DATA FIELD switches to zero. 

^. 1 lai^c z,uv/ ill luc ovYiiv^ii r^i^Kjio I IZSK anu ucpicss iiic 

LOAD ADDress key. 

6. Press the START key. The DISKIN Initial Dialogue will 
begin. Answer the questions as in the section on DISKIN 
Initial Dialogue, described below. 

'7 r7i'-\,»^ A T /¥ TT^T> A :_ 3__ i. 1, _ _1 I 1 

/. rwv./\i^/i^iDi^rt. IS now reauy to oe siiaieu oy scvcii useis. 



LIBRA STOP AND RESTART PROCEDURE 

To stop the system during operation, hold down switch 1 1 until 
the system halts. To resume operation, press CONTINUE or go to 
step 4 of the LIBRA LOADING PROCEDURE. 



NOTE 

After running LIBRA or DTSKIN, two loca- 
tions in the Binary Loader must be restored 
before the Loader can be used again. Load 
1355 into location 7750, and load 5743 into 
location 7751. 



DTSKIN INITIAL DIALOGUE 

The disk initialize overlay, like LIBRA, has two versions: one 
to clear a DF32 Disk System, and the other for a RF08 Disk Sys- 
tem. DISKIN does not save the contents of the disk. 

The overlay is short and can be quickly loaded with BIN. It 
will not destroy the LIBRA system that is currently in core. This 
allows the disk to be cleared at any time without reloading the 
entire system. 



1. Load the DISKIN overlay tape into field using the Binary 
Loader as described in the section on USING THE BI- 
NARY LOADER WITH FOCAL. 

2. Start at 0200 in field as in steps 4 and 5 of Using the 
Binary Loader. 

3. The overlay types "FOCAL DISK (DF32) INITIALIZE?" 
for a DF32 System and "FOCAL DISK (RF08) INITIAL- 
IZE?" for an RF08 System. 

4. To clear the disk directory, type Y. Any other answer causes 
the program to go to step 9, below. 

5. The overlay types the question "NO. DISK SURFACE?" 
meaning the number of disks to be used. 

6. Type 1, 2, 3, or 4 for the number of disk surfaces to be used. 
Any other answer goes back to step 5. 

7. The overlay then types the number of free blocks available 
for use in the form XXX FREE BLOCKS, where XXX is 
the octal number of programs that can be stored according 
to the number of surfaces selected. 

8. The overlay then cleans the directory and confirms by tvping 
"DIRECTORY WRITTEN". 

9. The overlay then types "SWAP AREA INITIALIZE?". 
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10. If the swapping areas are to be initialized, type "Y". Any 
other answer returns control to FOCAL. 

11. The overlay cleans the swapping areas and confirms success 
by typing "SWAP" AREAS WRITTEN" and returns control 
to FOCAL. 

12. The message "TO FOCAL" is typed before entering the 
FOCAL system. 

13. Typing a CTRL/C aborts the dialogue and transfers to 
FOCAL, 

14. The message "DISK WRITE ERROR" indicates that the 
disk is not operational or write locked. Remedy the cause 
of the error and reload the initialize overlay. 

QUAD LOADING PROCEDURE 

.1. Load the first Section of the FOCAL tape into field 1 as 
described in USING THE BINARY LOADER. When the 
tape halts the first time, remove it from the reader. 

2. Place the QUAD tape in the reader. Hit the CONTinue key. 
The QUAD tape will read in. 

3. When the tape halts, put 0200 in the SWITCH REGISTER 
and set INST FIELD and DATA FIELD switches to 0; 
depress the LOAD ADDress key. 

all four Teletypes. FOCAL is ready for use at each of the 
four Teletypes. 

5. The program can be restarted as outlined in FOCAL RE- 
START PROCEDURE. 

6. The program m.ay only be stopped after typing CTRL/C 
on each user Teletype. 

UTILITY PACKAGE LOADING PROCEDURE 

1. Load and Start FOCAL plus INIT as described under 
FOCAL LOADING PROCEDURE. Complete the Initial 
Dialogue. 

2. Press the STOP key. 
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3. If 10 digit accuracy is desired, load 4WORD binary tape 
(the first segment) into field zero as described in the sec- 
tion on the Binary Loader. 

4. If long programs are to be run (up to 8000 characters), 
load 8K (the 2nd segment) into field one as in, the section 
on the Binary Loader. 

5. LOAD ADDress 200 as per steps 4 and 5 under the Binary 
Loader. 

6. Press the START key. 

GRAPHICS PACKAGE LOADING PROCEDURE 

This set of three segments permits program control of vector 
generation and other graphic controls for different devices. The 
three successive binary sections are called CLINE, PLOTR, and 
GRAPH, respectively. 

1 . Load and Start FOCAL as described under FOCAL LOAD- 
ING PROCEDURES. 

2. Hit the STOP key. 

3. Load the desired binary segment into field zero using the 
Binary Loader as described in the section on USING THE 

^ BINARY LOADER. 

a. Use CLINE if using a VC8/I (or 34D). 

b. Use PLOTR if using an incremental plotter. 

c. Use GRAPH if using a KV8/L 

4. Set SWITCH REGISTER to 0200; set DATA FIELD and 
INST FIELD to zero; press LOAD ADDress; press START. 

Disk Monitor System 

Use one of the following sections. 

4K FOCAL WITH DISK MONITOR 

Having built the Disk Monitor System, copy the FOCAL tape 
onto the disk using PIP, and then load and start FOCAL on the 
disk system by using the LOAD command. (Refer to DEC-D8- 
SDAB-D, Disk Monitor System, Programmer's Reference Manual.) 
Give a starting address of 200. 

1 . Complete the Initial Dialogue; press STOP; LOAD ADDress 
7600; press START. 
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2. Return to Disk Monitor by the FOCAL command "L". 

3. Initialize the Disk Files by typing the following SAVE 
commands after the period typed by the Monitor. 

.SAVE START ! 4600-7577;200 
.SAVE FOCAL ! 0-3377; 

4. To run a FOCAL program, call FOCAL from the Disk. 

.FOCAL 
.START 

?00.00 (FOCAL prints the error code for a con- 

* sole restart and an asterisk to indicate it is 

ready to accept commands.) 

5. To save a program, it must be given a name. Note that page 
is also being saved. 

*T nr ATTHMQ aTc^t-^ 

(returns command to Disk Monitor) 

3217 (b) " (FOCAL) 

3217 (c) (Disk Monitor) 

4577 (d) 
.SAVE(Name): 0,(a) - (b); (User) 

6. i o continue to use the same program, add the command 

.START 
700.00 



After FOCAL types the error code and asterisk, the user" 

7. To run a program that has been stored (as previously de- 
scribed), LOAD ADDress 7600, press START, and type the 
following routine: 

.FOCAL 

.CALL(name) 

.START (line feed will not occur) 

?00;00 (FOCAL types the error code for a manual 

restart and an asterisk to indicate it is ready ' 

to accept commands.) 
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UNDER THE DISK MONITOR 

To use FOCAL without some of the extended functions, load 
FOCAL as under FOCAL Loading Procedures but give a starting 
address of 7600, Then issue the following commands to the Disk: 

.SAVE FOCAL. ! 0-7 577:200 
.FOCAL 

Now configure the system you want to use by answering the 
dialogue's questions. 

8K FOCAL WITH DISK MONITOR 

1. Save 8K FOCAL by issuing the following commands after 
the "L" command (see step 8 of 4K FOCAL WITH DISK 
MONITOR, preceding). 

.SAVE ST8K! (d) - 7577;200 

.SAVE FCL8! 0-3377 

.SAVE NUL8! 10100; lOl 13 (to initialize program 

text area) 
.SAVE NAME: 10100-(b);101 13 

2. To run a FOCAL program requiring 8K of memory, get 
FOCAL from the Disk. 



.FCL8 

.NUL8 

.ST8K 

?00.0i; 

* 



The above 3 commands to DISK are the appropriate starting 
sequence for a FOCAL program. 

3. To save procedure for a finished 8K program is similar 
to4K 

.SAVE NAME: 1 (a) -1 (b); 1011 3 

4. Add the following command to save a set of variables in 
field 0. 

.SAVE DAT8:0,3000 - (c); 
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The .SAV DATS command stores a set of data (variables) 

located in field 0. 

To set up a new program with a particular data set, type: 



.FCL8 

• CALL, LAT8 

•CALL WAM8 

.ST8K 

? 00.0, ••I 

* 



Rpfer to r^PP-OS-Qn AR_n nict Mopitnr QvctAm ProarommAr'c 

Reference Manual for additional information. 



ELD 



a' 3207g 




a.b.c.d above noint to the values indicated bv the LOCATIONS 
command. 



a. 5tart or lext Duner. 

b. End of text buffer. 

c. End of variable list. 

d. Bottom of Dush-down list. Value deoends on which func- 

J- A 

tions are retained and which additional system segments 
are used. 
a' and b' point to the corresponding locations in field 1. 
The FOCAL interpreter is in field 1 when using QUAD. 

Figure 11-8 Core Man for FOCAL with Disk Monitor System 

11-50 



QUAD ERROR PROCEDURES 

If the four user FOCAL system appears to fail in some way, 
determine which of the four circumstances outhned below is ap- 
plicable. Then try suggested procedure A under that category. 
If this does not restore operation, then try procedure B. If the sys- 
tem still does not respond correctly, as a last resort reload the 
overlay. Keep a log of alt procedures tried. 

1. If interrupt if OFF, and RUN is ON: 

A. Hit STOP; note the contents of the PC; put that number into 
Sense Switches and hit LOAD ADDress: hit START. 

B. If the system has Power-Fail /Auto-Restart, turn the key to 
OFF; turn the key to ON. 

2. If interrupt is OFF, and RUN is OFF: 

A. Try l.B. 

B. If the system has a disk, there may be a disk error flag raised; 
try 1 .A above. 

3. If the Interrupt is ON: 

A. Type Control/C on all Teletypes. 

B. Load Address 200, and START. 

4. If the Teletypes occasionally produce garbage: 

A. Adjust the timing on the Teletype control module. 

B. Reload the overlay. 

C. Call field service. 

QUAD TELETYPE PROBLEMS 

Since both the paper tape reader and the Teletype keyboard are 
perceived by the computer as similar input channels, some con- 
flicts have been known to arise. While it is important for the user 
to have control of the computer from the Teletype, he may tempo- 
rarily lose that control if: 

1. The reader runs so fast as to fill up a program input buffer. 
The program will then remove the keyboard momentarily 
from tUe^ interrupt bus in order to process the input buffer; 
the user could prevent the buffer from filling by manually 
stopping the tape at intervals. 
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2. The user types so fast as to fill up an input buffer or holds 
down the REPEAT and RETURN keys'. At this point the 
program will ignore a character coming from the Teletype, 
possibly reading it as a garbled character. 

In the QUAD system there is a procedure for the user to 
follow that will prevent buffer overflow problems: the user 
may type a CTRL/R to prevent character echoing. The re- 

dnfPd Irynri nrt tTi^ t-.t-/~>r-^o^-v-. ^.o^"^;<-„ X^r^.r^Ar 4.^ i 

V- — „^ 5^^^ ^i^^ j^x-^-gtdiu ps^iiiuLj. rKjK^/AL^ to Keep ud witft 

The more general, but costlier, solution is to install the so- 
-ct-ivu .^vy.> , ^vv^xx contiwi. 1 iiis ucvicc, wnen mstaiiea 
on a Teletype, permits discrimination between keyboard and 
reader. 

Other problems which may arise are documented below with 
suggestions for their solution. 

3. When a modem (device which interfaces data between the 

j^v.i(^i di — ^„i_ *«,^c^j,^^y io ciLiauuou lu uic computer, me 
program does not have control over the reader, which causes 
the reader to look like a fast iypist as in example 2, above. 
The same solutions may be used to alleviate the problem. 

4. There is another unique problem which arises with the input 
of the carriage return character because the carriage return 
is echoed by FOCAL as a "carriage return/line feed/ 
asterisK combination (a three-for-one expansion). Do not 
hold down the REPEAT and RETURN keys as this will fill 
the output buffer three times as fast as the input buffer. 
If this happens, FOCAL puts the user into an ouput-wait 

status. This reverts tn PYnmnlp i «rV.;,-v, ^Jc-v-i— *^~ 

from the interrupt bus. 



When long program tapes are read, the carriage return char- 
acters mav rau'ie ^^e *^ntr.iit Ur^ff^^ +^ u„„^. £,.ii __ ■ 

- — J — i.„v, „,c w^..^Lit uuixy^i lu uc(^uiiic luii as m ex- 
ample 4. The solution here is the same as for example 2; the 
user must follow the procedure of typing a CTRL/R before 
reading in the program tape. 
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6. When reading in data tapes, it is also possible to encounter 
the three-for-one problem as in example 4. The solution is 
to use CTRL/R to turn oflf the echo. In certain severe cases 
where much output is interspersed between input data, it will 
be necessary to stop the tape manually before the ouput buf- 
fers fill. 

Once the user has disabled the echo feature of FOCAL and read 
in his tape, the echoing can be again enabled by typing CTRL/T. 

If, for some reason, the program is manually stopped by the user 
or by a power failure, it is possible for user programs to become 
garbled. The solution is to install the Power-Fail/ Auto-Restart op- 
tion on the computer. This simple addition to the system turns 
QUAD into a Failsafe/Turnkey system. It is then possible to turn 
the key to PANEL LOCK and remove it. This prevents manual 
interference and allows the system, to be activated by control of the 
power source as easily as controlling a light bulb. 

EQUIPMENT REQUIREMENTS 

FOCAL operates on a 4K PDP-8/I, -8/L, -8/S, -8, -12, -5, or 
LINC-8 Computer with a 33 ASR Teletype. Optional equipment 
includes an analog-to-digital converter and an oscilloscope display. 

THE INITIAL DIALOGUE 

After FOCAL has been loaded and started, FOCAL identifies 
itself and the type of computer being used; FOCAL then types the 
options available to the user for retention of the mathematical 
functions. If these functions are not needed, the user answers 
FOCAL's questions by typing NO and the RETURN key, and 
FOCAL erases those functions from core; thus, the user gains ad- 
ditional core storage for use by his programs. 

Alternate initial dialogues are shown below. 

COMGRATULATIOMS! ! 

YOU HAVE SUCCESSFULLY LOADED 'F0CALW969' OM A PDP-8 COMPUTER. 

SHALL I RETAI\' LOG^ EXP, AT\' ?:YES 

PROCEED. 

* 

When the user answers YES to the above question, all math- 
ematical functions are retained, and the user has approximately 
700io locations available for his programs. 
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CONGRATULATIONS!! 

YOU HAVE SUCCESSFULLY LOADED 'F0CALj1969' ON A r-'DF-S COMPUiER- 



SHALL I RETAIN LOG^ EXP^ ATM ?:N0 
SHALL I RETAIN SINE> COSINE ?:YES 
PROCEED. 



If the user answers NO to the first question, FOCAL asKs a 
second question. A YES answer to the second question leaves ap- 
proximately 9OO10 locations available for the user's programs. 

CONGRATULATIONS! ! 

YOU HAVE SUCCESSFULLY LOADED 'FOCAL, 1969' ON A PDP-8 COMPUTER. 

SHALL I RETAIN LOG:. EXP, ATN ?:N0 
SHALL I RETAIN SINE, COSINE ?:N0 
PROCEED - 
* 

A NO answer to the second question erases all extended func- 
tions from core, giving the user llOOm locations for use with his 
programs. To determine the exact number of locations available, 
use the LOCATIONS command. 

Note that logarithm, arctangent and exponential functions can- 
not be retained without the sine and cosine. Refer to DEC-08- 
AJBB-DL, Advanced FOCAL Technical Specifications for another 
way to eliminate the extended functions. 

After the initial dialogue has been answered, FOCAL auto- 
matically erases it from core. FOCAL concludes the initial dialogue 
b'^' tellino' the user to PROCEED followed by an * and waits for 
user input. 

EXAMPLES OF FOCAL PROGRAMS 

Disclaimer 

The FOCAL -8 demo programs that follow are examples or sug- 
gestions of procedures for writing games, quizzes and problem 
solving routines. These routines are in no way meant to be con- 
sidered a final product of development. 



1 1 C/i 
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Addition Exerciser 

ABSTRACT: This is an educational routine designed for children 
in elementary school. The purpose and result of this routine com- 
plement each other. First, the purpose of this routine is to quiz the. 
child in basic addition, so that he may learn to associate num- 
bers and quantities at a more rapid pace. The result of this is that 
the student is introduced to the computer at an early age. He will 
eventually conclude that he can not only learn and have fun with 
the computer, but he may also conclude that it is a very applicable 
tool. And there is always that chance that later in life he may re- 
member his past experience. 

OPERATIONAL PROCEDURES: 

1. "Addition Exerciser" is loaded via FOCAL-8. 

2. Type "GO" and execution begins. 

3. A sample run follows. 

♦ERASE ALL 

* 

*WRITE ALL 

C-FOCAL^ 1969 

01.05 TYPE "HELLOj please ADD THE FOLLOWING SETS OF NUMBERS."! 
01-10 SET A=FABSC FI TR< 100*FRANC ) ) >; SET B=FABS< FI TRC 99*FRANC) > ) 
01.20 TYPE %7i Aj!B^!" "•! 

01.30 ASK REPLY^ ! 

01.40 IF (REPLY-A-B) 2.1^1.5^2.1 

01.50 SET WR=0;TYPE "THAT IS CORRECT."! 

01.60 GOTO 1.1 

02.10 SET WR=WR+i; IF (WR-2) 2.2^2.2*3.1 
02.20 T "SORRY* TRY AGAIN*"!; GOTO 1.2 

03.10 T "IF YOU ARE HAVING TROUBLE-. ASK YOUR TEACHER FOR HELP."! 

03.20 TYPE "THE CORRECT ANSWER IS "A+B* ! 

03.30 GOTO 1.1 

* 

*G0 

HELLO* PLEASE ADD THE FOLLOWING SETS OF NUMBERS. 

60 

73 



: 133 




THAT 


IS CORRECT. 


= 


89 


= 


53 


:152 




SORRY 


* TRY AGAIN* 


= 


89 


= 


53 
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Prime Factors of Positive Integers 

ABSTRACT: After receiving a positive integer as input this 
FOCAL-8 routine will dump on the Teletype all the prime factors 
of the specified integer. 

OPERATIONAL PROCEDURES: 

1. "Prime Factors of Positive Integers" is loaded by FOCAL-8. 
o T^mo "rio" and rpsnnnd to the regijest for a positive integer 

3. A sample run follows. 



*ERASE ALL 

* 

*WRITE ALL 

C-FOCAL> 1969 

01.10 ASK !!"A POSITIVE INTEGER >1 PLEASE" N ^!!;SET DI=2;SET PH=0 

01.il IF '-Fi THCN ) ~N ? 1 • 1 j I F ( W~ l j 1 • 1 j SET F-iv 

01.20 IF <P/DI-FITRCP/DI)) 1.4^1.3^1.4 

01.30 TYPE "PRIME FACTOR" DI^'iSET P=P/DI;GOTO 1.2 

01.40 IF <1-PH) i. I J 1.5* SET PH=liSET DI = DI+iiGOTO 1.2 

01.50 SET DI=DI+2;IF CDI-P) 1 . 6> 1 • 6; TYPE ! "DONE"! ; GOTO 1-1 

mi ^n TTT /■r^T-TT'criT^Tr-Ar 
KJ i . UttJ i i V i^ i i .Jul i ». i- r-ii. 

* 
*G0 



A POSITIVE INTEGER >1 PLEASEl 5 

PRIME FACTOR= 5 

DONE 

A POSITIVE INTEGER >1 PLEASE: 63 



PRIME FACTOR= 3 

PRIME FACTOR= 3 

PRIME FACTOR= 7 

DONE 



A POSITIVE INTEGER >1 PLE.ASEI4? 

PRIME FACTOR= 47 

DONE 
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Repeating Decimals 

ABSTRACT, This FOCAL-S routine computes and types the 
repeating decimals that appear in a fraction. The user must input 
the numerator and the denominator respectively. 

If the output "appears" to be repeating for a line or two, in- 
terrupt the output by typing a CONTROL/C ( t C). FOCAL will 
give an error message and an asterisk (*). Type "GO" if you 
wish to continue. 

OPERATIONAL PROCEDURES: 

1. Load "Repeating Decimals" with FOCAL-8, type "GO". 

2. Input the numerator and denominator followed by a car- 
riage return. And the resuts will be typed on the Teletype. 

3. A sample run follows. 



* ERASE ALL 

* 

*WRITE ALL 

C-FOCAL# 1969 

.01.05 ASK •• EWTER NUMERATOR AND DENOMINATOR "A^ B^ ! 
01 .10 SET Z = 5 

01.20 IF CB-A)1 .4>1 .3; TYPE " ."; GOTO 2.1 
01.30 TYPE !"l"r;QUIT 
01.40 TYPE !"THIS PROGRAM ONLY EVALUATES FRACTIONS< 1" ! ; QUI T 

02.10 SET N=10 

02.20 IF (N*A-B) 2.3^4.1^4.1 

02.30 SET N=10*N 

02.40 TYPE 0.0;D 6 

02'. 50 GOTO 2.2 

02.87 

04.10 SET 0=1 

04.20 IF (N*A-G*B) 5.1 

04.30 SET C=C+1 

04.40 GOTO 4.2 

05.10 TYPE %l^C-i; DO 6 
05.20 SET A=N*A-{C-1 )*B 
05.30 IF C-A) 5. 5; TYPE !; QUIT 
05.50 IF (A-B) 2.1^1.3W.4 

06.10 IF (Z-20) 6.2; SET Z=0; TYPE ! 

06.20 SET Z=Z+i; RETURN 

* 

*G0 

ENTER NUMERATOR AND DENOMINATOR :1 :4 
.= 2= 5 
*G0 

ENTER NUMERATOR AND DENOMINATOR :134 :250 
.= 5= 3= 6 
*G0 
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ENTER NUMERATOR AND DENOMINATOR :1 :7 








.= 


.= 4= 2= 8= 5= 


7 = 


.= 4= 2= 8= 


D = 


7 = 


b= 4= 2= i 


3 




5 = 


7 = 


1 = 


4 = 


2 = 


8 = 


5= 7 = 


1 = 


4 = 


2 = 


8 = 


5 = 


7 = 


1 = 


4 = 


2 = 


8 = 


5 = 


7 


1 = 


4 = 


2 = 


8 = 


5 = 


7 = 


1= 4 = 


2 = 


8 = 


5 = 


7= 


1 = 


4 = 


2 = 


8 = 


5 = 


7 = 


1 = 


4 


2 = 


8 = 


5 = 


7 = 


1 = 


4 = 


2= 8 = 


5 = 


7= 


1 = 


4 = 


2 = 


8 = 


5 = 


7 = 


1 = 


4 = 


2 = 


8 


5 = 


7 = 
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2 = 


8 = 


5= 7 = 
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2 = 
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4 = 
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1 ■_■ 
i — 

• 
• 
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** — 


2 = 


8 = 




■7 — 


t — /i _ 


2 = 


8 = 


C = 


7- 


1 ~ 


/i- 


2 = 


8 = 


5 = 


7= 


1 = 


4 



= 5= 7=?00.00 @ 04.30 



(Output continues until stopped from the keyboard) 

Right Triangle 

ABSTRACT: Given the length of the first side and the degrees of 

ii_ _ _j: J. 1- iU:_ i.; ._..*_„ *i.^ u..^»^»«.,>,» 4-1.^ 1a^»4'U 

uic ttujawcui aiigic, una iuuiuic tuiiiputcs uic ii^putuiiuaw, tiiu l^^ll5Hi 

i lilt aVWVll*-* iSlVlV. CiilVI i-il^^ Al<UlllL^V'l Vyi ^^W^» WW3 Jk.\^i. k,JiAW V^^AAWA IM&A^A^V 




OPERATIONAL PROCEDURES: 

1. "Right Triangle" is loaded by FOCAL-8. Type "GO", sup- 
ply the length of SI and the degrees of the adjacent angle. 
The results will be returned on the Teletype. 

2. A sample run follows. 

♦ERASE ALL 

* 

♦WRITE ALL 

C-FOCAL, 1969 

01.10 ASK "SIDE SI EQUALS" SI 

01,20 A " ADJACENT .ANGLE A2 EQUAi S" A2J TYPE "DEGREES"!! 
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.01.30 S RATI0=3. 141592/180; SET Al=90-A2 

01.40 SET HYP=S1/FSINCA1*RATI0); SET S2=FSQT(HYPt 2- SI t 2) 

01.50 T "SIDE S2 ":. S2:.!^ "HYPOTENUSE":. HYP:,! 

01.60 T "ANGLE Al"^ Al:. ! - 

* 

*G0 

SIDE SI EQUALS: 4 

ADJACENT ANGLE A2 EQUALS: 35 
DEGREES 

SIDE S2 = 2.801 
HYPOTENUSE= 4.88 3 
ANGLE Al= 55.00 
* 

Roots of a Quadratic 

ABSTRACT: Given values a, b, c, of a first degree quadratic 
equation, this FOCAL-8 program computes the roots of the equa- 
tion. 

Based on the quadratic equation therum: given ax-+bx+c=0, 
then x=— b± /b^ — 4ac 

2a 

Then the following principles are applied: 
if: a, b, and c are real then: 

1. if b- — 4ac is positive — then the roots are real and unequal. 

2. if b^ — 4ac is — then the roots are real and equal 

3. if b^ — 4ac is negative — then the roots are imaginary and 
unequal. 

OPERATIONAL PROCEDURES: 

1. Load "Roots of a Quadratic" with FOCAL-8. 

2. Type "GO" and input the values of a, b, and c, and ex- 
ecution begins. 

3. A sample run follows. 

*ERASE ALL 
* 

♦WRITE ALL 

C-FOCAL^ 1969 

01.10 ASK !! ?A B C ?; SET ROOT=Bt 2-4*A*C 

01-20 IF <A) 1.4W .3:. 1.4 

01.30 TYPE ! "THIS IS A FIRST DEGREE EQUATION" l } GOTO 1-1 

01.40 TYPE %6.03> ! " THE ROOTS ARE"; IF (ROOT) 1 • 7W . 6 

01.50 TYPE ! J (-B+FSQT(ROOT) )/2*Aj !^ (-E-FSQT(ROOT))/2*A;GOTO i.l 

01.60 TYPE ! -B/2*A^!; GOTO 1.1 

01.70 TYPE " IMAGI^JARY "!j-B/£*Aj" + C ", FSQTC -R00T)/2*A^ ") " "*I" 

01.80 TYPE !,-B/2*Aj." - ( "> FSQTC -R00T)/2*A/ ")* I "> ! ; GOTO 1.1 

* 

*G0 
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A : 5 B : 6 C : 3 

•j-Ljtr pnoTS ARF IMAGI^JABY 

0.600 + C= 0,490)*I 

0.600 - (= 0.490>*I 

l^erpetual Calendar 

ABSTRACT: Given month/date/year, the "Perpetual Calendar" 
will type the day of the week. 

nppPATTOVTAT PT? nrP FIT T1?FQ- 

*, * 

2. Type "GO" respond to the dialogue and your answer is 
typed back immediately. 

3, A sample run follows. 

*ERASE ALL 

* 

*WRITE ALL 

C-FOCAL> 1969 

01.10 ASK !"WHAT IS THE DATE ? (MM/DD/YYYY) "M^K^C^! 
01.20 S C=C/100;S D=FITR< . 1+100*CC-FITR(C))>; S C=FITR(C) 
01.30 5 M = M-2; IF <M) S.-^i^ 5.4; GOTO 5.5 

05.40 S !« = K+12;S D= D- 1 J I C - D) 5- 5^ 5. 5; S D=99; S C=C-1 

05.50 S X=FI TR<FI TRC 2. 6*M- ■ 2] +K+D+FI THC D/4] +FI TRC C/4 J -2* C> 

05.60 IF CX-6) 5.7>5.7;S X=X-7;G 5.6 

05.70 T i "THE DAY IS "J DO 6.1 

05.80 IF CM*1E6+K*1E4+C - Q ) 5. 9/ 5. 85> 5. 9 

05.8 5 T " , TODAY !" 

05.90 T '.'.'} GOTO 1.1 

06.10 I <X)6.26^6.2; I (X- 2) 6 . 21 j 6. 22> 6. 1 5 

06.15 I (X-4)6.23^6.24;I <X- 6 ) 6 . 25> 6. 26; 

06.20 T "SUNDAY 

06.21 T "MONDAY 

06.22 T "TUESDAY 

06.23 T "WEDNESDAY 

06.24 T "THURSDAY 

06.25 T "FRIDAY 

06.26 T "SATURDAY 

06.50 ASK M>K^C;D0 1 . 2; D 1.3; SET G=M*1E6+K*1E4+C;G0T0 1.1 

*G0 

WHAT IS THE DATE ? (MM/DD/YYYY) :4/:3/:1970 

THE DAY IS FRIDAY 

WHAT IS THE DATE ? CMM/DD/YYYY) sl0/:i5/:70 

THE DAY IS WEDNESDAY 

WHAT IS THE DATE ? <MM/DD/YYYY> :?00.00'@ 01.10 
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King of Siimeria 

ABSTRACT: The "King of Sumeria" is a game which challenges 
your ability to foresee the consumer market. Hamurabi, your ser- 
vant, will state the following facts about last year, and you must 
decide the number of acres you will need, and how many bushels 
of grain you expect to distribute as food. You will base your de- 
cisions on these facts: 

1 . Number of people who died of starvation. 

2. Number of new people that came to the city. 

3. Number of acres owned by the city. 

4. Number of bushels harvested per acre. 

5. Total number of bushels that were harvested. 

6. Number of bushels that were destroyed. 

7. Number of bushels currently in storage. 

Then based, on your decisions, Hamurabi will state a new report 
of the above information. 

OPERATIONAL PROCEDURES: 

1. Load FOCAL-8, without extended functions. 

2. Load the "King of Sumeria", following the loading instruc- 
tions for paper tape. 

3. Type "GO" and the game begins. (A sample run follows) 

♦ERASE ALL 
* 

♦WRITE ALL 
C-FOCAL, 1969 

01.10 S P = 95;S S-=2800;S H = 3000;S E=200;S Y=3;S A=1000JS I=5;S Q=l 

02.10 S D=0 

02.20 D 6;T !!!"LAST YEAR"!D:." STARVED^ 

02.25 T n," ARRIVED^"';S P=P+l;i C-Q)2.3 

02.27 S P=FITHCP/2);T ! "**PLAGUE**" ! 

02.30 T !"POPULATION IS"P^!!"THE CITY OWK'S 

02.35 T A^" ACRES."! !n (H-1)§.5;T "WE HARVESTED 

02.40 D 3.2 

02.50 T !" RATS -ATE "E^" BUSHELS;. YOU NOW HAVE 

02.60 T !S," BUSHELS IN STORE."! 

03.10 D 6;D 8;S Y=C+17;T "LAND IS TRADING AT 

03.20 T Y^" BUSHELS PER ACRE;";S C=l 

03.30 D 4.3;A " BUY?"!Q;I (Q)7.2^3.8 

03.40 I CY*Q-S)3.9^3.6;D 4.6^0 3-3 

03.50 D 4.5JG 3.3 

03.60 D 3.9;G 4.8 

03.70 S A=A+0;S S=S-Y*Q;S C=0 

03.80 A !"T0 SELL?"!Q;I C Q)7 .2.. 3 .9; S Q = -3; I CA+Q>3.5 

03.90 s a=a+q;s s=s-y*q;s c=0 
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04.10 T ! "BUSHELS Ttt USE 

04.11 A " AS F00D?"!Q;I CQ)7.2;I CQ-S)4.2:.4.7;D 4.6;G 4.1 
04.20 S S=S-QJS C=l 

04.30 A !"HOW MANY ACRES OF LAND DO YOU WISH TO 

04.35 A !"PLANT WITH SEED? "D 

04.40 I (D)7.2;i (A-D)4.45;l CFITRC D/2 ) -S- 1)4 .65; D 4.6;G 4.3 

04.45 D 4.5;G 4.3 

04.50 D 7;t A," ACRES."! 

04.60 D 7;D 2.6 

04.65 I CD-10*P-1)5.1;D 7;T P," people. "!;G 4.3 

04.70 D 4.2 

04.80 D 6;T ''YOU^ HAVE NO GRAIN LEFT AS SEED ' S 'M S D = 

05.10 s s=s-fitr(d/2);d 8;s y=c;s k=d*y 

05.20 D 8;s E=0;l CFITRCC/2)-C/2)5.3;S e=s/c 

05.30 S S=S-E+H;D 8;S I=FITR<C*(20*A+S)/P/100+1 );S C=FITRtQ/20) 

05.40 S Q=FITR< i 0*FABS< FRAn< J J ) i I CP-C)2.i;5 D=P-Ci5 P=CjG 2-2 

06.10 T !!"HAMURABI: "%5 

07.10 I (C)7.2;S C=C-1;D 6JT "BUT YOU HAVE 0NLY";R 

07.20 D 6;T !"G00DBYE!"! !;Q 

08.10 S C=FITRC 5*FABSCFRANC ) 3 )+l 
* 



* 
♦ GO 



HAMUR AE I : 



LAST YEAR 
= STARvEDj 
5 ARRIVED > 
POPULATION IS= 100 

THE CITY OWNS= 1000 ACRES. 

WE HARVESTED= 3 BUSHELS PER ACRE; 

RATS ATE = 200 BUSHELS^ YOU NOW HAVE 
= 2800 BUSHELS IM STORE. 



HAMURABI: LAND IS TRADING AT = 21 BUSHELS PER ACRE; 

HOW MANY ACRES OF LAND DO YOU WISH TO BUY? 

:0 

TO SELL? 

:0 

BUSHELS TO USE AS FOOD? 

:2000 

HOW MANY ACRES OF LAND DO YOU WISH TO 

PLANT "WITH SEED? :800 

HAMuTiAB I : 

1 1 _<=iO 



LAST YEAR 
- STARVED J 

8 ARRIVED:, 
POPULATION IS= 108 

THE CITY OWrg:S= 1000 ACRES- 

WE HARVESTED= 4 BUSHELS PER ACRE; 

RATS ATE = . -0 BUSHELS^ YOU WOW HAVE 
= 3600 BUSHELS IW STORE. 

HAMURABI: LAND IS TRADING AT— 22 BUSHELS PER ACRE; 

HOW MANY ACRES OF LAND DO YOU WISH. TO BUY? 

:30 

BUSHELS TO USE AS FOOD? 

-:2040 

HOW MANY ACRES OF LAND DO YOU WISH TO 

PLANT WITH SEED? :900 

HAMURAB I : 

LAST YEAR 

6 STARVED, 
10 ARRIVED, 
POPULATION IS= 112 

THE CITY -OWNS= 1030 ACRES- -- 

WE HARVEST ED= 5 BUSHELS PER ACRE; 

RATS ATE = BUSHELS, YOU NOW HAVE 
= 49 50 BUSHELS IN STORE - 

HAMURABI: LAND IS TRADING AT = 20 BUSHELS PER ACRE; 

HOW MANY ACRES OF LAND DO YOU WISH TO BUY? 

:70 

BUSHELS TO USE AS FOOD? 

:2300 

HOW MANY ACRES OF LAND DO YOU WISH TO 

PLANT WITH SEED? :950 

HAMURAB I : 

LAST YEAR 

STARVED, 
12 ARRIVED, 
POPULATION IS= 124 

THE CITY OWNS= 1100 ACRES. 

WE HARVESTED^ 4 BUSHELS PER ACRE; 

RATS ATE = 194 BUSHELS, YOU NOW HAVE 
= 4381 BUSHELS IN STORE. 

HAMURABI: LAND IS TRADING AT = 21 BUSHELS PER ACRE; 
HOW MANY ACRES OF LAND DO YOU WISH TO BUY? 
?00.00 @ 03.30 
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Towers of Hanoi 

ABSTRACT: A Challenging Game in "FOCAL" and an example 
of recursive programming. 

ORIGIN OF GAME: 

According to legend, there exists a secret society of monks living 
far underground beneath the city of Hanoi. They possess three 

JtiJigc bLaC&.5 ui Luvvcia uii wiiit;ii uiiioieiiL aiz,c uisi^a ma^- uc piavtw. 

Moving one at a time and never placing a larger upon a smaller 
disk, they are endeavoring to move the tower of disks from the 
left stack to the right stack. The legend says that when they have 
finished moving this tower of 64 disks, the world will end! 

What is the minimum number of moves they will have to make? 



C 



a 



Using this program you can try your hand at a small stack or 
watch the computer solve it, 

METHOD OF OPERATION: 

The program is written in the FOCAL language and will run on 
a 4K PDP-8. To start the program, type "GO", followed by a 
carriage return. Type a space following any response made to a 
question asked by the program. To terminate the program at any 
time, type a CTRL/C. The program must be run without extended 
functions. 

The program first asks for the number of disks (3 to 8). It then 



^ickG Tf\T i^rtf^ Xrit^f^ f\T fyliftwi't f\f^^iTi^f\ i?g 



fc «f li f^T o. T^I nf df fri p H T^ IT 



positions or as a list of the moves. The final question is used to 
determine whether you will make the moves manually, or if the 
program should proceed automatically (0 to 1). 

A move is selected by determining the stack out (SO) and the 
vertical disk number out (NO) and the stack in (SI) and the disk 
number in (NI). Error checking is not performed. 
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1 hus tne next move is tnis example 







1 


1 




1 2 








1 




|3 



is SO:l NO:2 SI:2 NI:3 



1 3 C 



] 3C 



ALGORITHM: 

The stacks are represented internally as an array (SS). The 
value of a member of this array represents the size of the disk in 
that position. 



disk: 
1 



3 
stack: 





















3 


2 


1 



EXPLANATION OF "TOWERS OF HANOI:" PROGRAM: 

Group 1 — Main Program 

Ask for number of disks to be removed. 
Initialize the stacks. 
Move the stack (DO 2). 

Group 2 — ^^Move a specified stack. 
Save move request. 

To move this stack first move all but one disk 
(i.e. NO-NO-1). 
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If the resultant stack has an odd number of disks in it, 
then move it to temporary storage 

(i.e. SI = 6 - SO - SI). 
If no disk remains to be moved in the output stack, 

return, (line #2.3). 
Find the first free position on the input stack, (line 

#2.5). ^ . 

Move the remaining stack and the bottom piece 

^if2.6^. Then move that stack back onto the 

bottom piece (#2.7; 2.8). 
Restore move request and return (#2.9). 

Group 5 — User must specify which stack for output ("SO") and 
which disk to move ("NO"). No check is made if he 
cheats. (This means the possibility of inventing new 
games, by the way. ) 
A check is made to see if he has finished (#5.4; 5.5). 

r^T-/^iir» f\ Execute a sinsle move. 






"SO" and "NO" and "SI" and "NI" are used to effect 

Group 23 — Plot the status of the board. 

Each piece has a size value kept the stack array SS(I). 
The stacks are scanned (line #23.1) and posi- 
tions on each stack checked. 

*ERASE ALL 

*WRrTE ALL 
C-FOCAL, 1969 

01.05 T !" TOWERS OF HANOI."! ;E 

01.10 A " NO. OF DISKS? "N^ ! 

01 .20 F I=1:.NJS SSC I ) = I 

01 .30 S so=i;s SI=3 

01.40 s no=n;s ni=n;s 1=0 

01.45 A "MOVES#0:. PL0TS#1 ? "MOVE^ ! 

01.46 IF CMOUE)ERK^ 1 .47;. DO 23 

01.47 ASK "AUTO#0^ .MANUAL* 1 ? -SA^i 
01^50 I (-A?5=1=D 2jT ! ! "DOME !"!!;Q 

0S.20 I [SS<(S0-1 )*N+N0-1 >]ER^2 .95; 

02.30 S I=I+!:S NO(I)=NO:S SO(I)=SO:S SI^I)=SI 

02.50 S SI=6-S0-Si;S N0 = N0-I;D 3;S TE(n=Nl;D 2 

02.60 s si=sici);s mo=no+i;d 3;d 6 -■'"" 

02.70 S S0 = 6-S0-SI;S NO=TE(n; DO 3i DO 2 

02.80 s si=si(i);s so=so(n;s N0=N0(n:s i = i-i 

02.90 R 

02.95 D 3; D 6; R 

03.10 S NI=N 

03.20 I [SS( (SI -1 )*N+NI 5 ]ER;.3 .3; S NI=NI-i;G 3.2 

03-30 R 
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05.30 S A=0 

05. ^40 F I = i>N*2JS A=A+SSCI) 

05.50 1 (-A) 5.1;T !"WELL D0WE!"!;Q 



■06.10 


S D0=CS0-1 )*M+NO 


06.20 


S DI = CSI-l>*N+iNri 


06.30 


S SS(DI)=SSCDO) 


06.40 


S SS(DO)=0 


06.50 


I (MOVE)E^6.7JD0 23';R 


06.70 


T !%2^?S0^ NO^iSU 


23.10 


F j=i^w;t !;f k=0>70;do 


23.20 


T ! ! ! !;R 


23.30 


IF CK-15+SS< J)*2]23.6; I 


23.60 


IF CK-35+SSC J+N)*2]23.7 


23.70 


IF CK-55+SSC J+iM+N)*2]23 


23.77 


S K=100JR 


23.80 
* 


T " " 



NI^ ?! 

23.3 

F C-K+15+SSCJ)*2]23.6;T "# 
7JIF C-K+35+SSCJ+N)*2]23.7;T "# 

a; IF C -K+55+SS( J+N+IM)*2]23.77;T "# 



*G0 

TOWgRS OF HANOI. 
NO. OF DISKS? :3 
MOVES#0^ PLOTS* 1 ? :l 



##### # 

######### # 

############# # 



AUTO#0> MANUAL* 1 ? :0 

# 

######### 

############# 



# # # 

# # # 



# # # 

# ##### # 



# # if 

# ##### # 



# # . # 

# # # 
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# 






##### 



DONE ! 



*G0 



TOWERS OF Hj=rNOI ■ 

NO. OF DISKS? :4 

MOVES#0^ PL0TS#1 ? 

•AUTO#0> MANUAL* 1 ? 



.^0.= 


1 


NOj.= 


i ! 


SI^ = 


2 


NI> = 


4 


so^ = 


1 


N0^ = 


2! 


SI-. = 


3 


NI^ = 


Zl 


S0> = 


2 


N0> = 


4! 


SI^ = 


3 


NIj. = 


3 


so,= 


1 


N0^ = 


3 ! 


SI> = 


2 


NI> = 


4 


S0^ = 


3 


N0^ = 


3! 


Sl^ = 


1 


NI> = 


3 


S0^ = 


3 


N0,- = 


4! 


SI-.= 


2 


NI^ = 


3 


S0^ = 


1 


N0.- = 


3 ! 


SI^ = 


2 


NI,= 


2 


S0^ = 


1 


NO^ = 


4: 


SI * = 


3 


NI J = 


4 


so,= 


2 


NOj = 


p; 


SI^ = 


3 


NI^ = 


3 


so> = 


2 


W0^ = 


3! 


SI/ = 


1 


NI^ = 


4 




3 




3 : 


SI^ = 


1 


NI,= 


3 


S0,= 


2 


W0> = 


4! 


SI^ = 


3 


NI> = 


3 


S0,= 


1 


N0> = 


3! 


SI^ = 


2 


NI,= 


4 
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so^ = 


1 


N0> = 


4! 


SI,= 


3 


NI> = 


2 


so> = 


2 


N0^ = 


4! 


SI,= 


3 


NI> = 


1 



DONE ! 

Return on Investment 

ABSTRACT: The book, Managerial Finance by Weston Brig- 
ham, defines "Return on Investment" (or "Internal Rate of Re- 
turn") as the interest rate that causes "the present value of the ex- 
pected future receipts" to be equal to "the present value of the 
investment outlay" (page 148). This equality desired could also 
be called "Discounted Gash Flow Back" to be equal to "The 
Present Value of Capital Employed". 

OPERATIONAL PROCEDURES: 

1. Type "GO" and answer the following: 

a. sizeof periods (e.g. .25) 

b. number of years 

c. amount to be depreciated 

d. Immediate Expense (tax deductable) 

e. additional working capital (e.g. inventory) 

This is followed by a period-by-period estimate of savings 
(or income) of expenses. A negative number placed in the 
SAVE(T) column will cause the prior year's savings of ex- 
penses to be repeated automatically for the remainder of 
the periods. 

2. Assumptions: All assumptions may be changed in the ex- 
ample program. 

a. Tax rate is taken as 57% per year (line #12.5 in the 
sample program) 

b. Declining balance depreciation is used, (something on 
the order of straight-line depreciation when it becomes 
faster; lines 5.1 and 5.2). 

c. In computing present value, a discount factor is computed 
assuming daily compound interest and distributed re- 
ceipts (line 5.4). 

d. Annual compound interest may be substituted by: 

(5.4 SET DI = 1/(1+K) T) 
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*ERASE ALL 

*WRITE ALL 
C-F0CAL^1969 

02.20 A "SIZE OF PERIODS^ YRS. "i E 
02.30 A Zy" NUMBER OF YEARS"N 
02.40 A ! "AMOUNT TO BE DEPRECIATED"A 
02.50 S N=N/Z;S R=.57*Z; 
"02.55 A '"IMMEDIATE EXPENSES"E^ ! "WORKING CAPITAL 
02-60 A WC^!" T SAVE<T) EXPENSE<T) 

02.70 F T=1^N;D 3 
02.80 D 4JR 

03.20 I <ST>3.3iT !%4.02>T." "i A SCT);I < - SC T)> 3. A, 3. 4; S ST=- 1 
03.30 S S<T) = S<T-n)S E<T) = E<T-13:R 
03.40 A " " E<T) 

04. 10 SET K=.25 

04.20 SET BA=AJSET y=A+WC+E*< 1 -R5 J SET X=0iFOR T=1^N;D0 5 

04.30 SET Z=FABS<X/Y) 

04.40 IF <FABS(Z-1)*K-.0001>4.8;SET K=K*Z;G0T0 4-2 

04.80 T !!X6.02" R-O.I."K*100^" % 

04.91 T !!" PROFITCBEFORE) <AFTER) CASH 

04.93 T !" PERIOD DEPREC TAXES TAXES FLOW FACTOR 

0Z1.94 T " VALUE"! 

04.95. s ba=a;f t=0^n;s x=0;d 5;d 6 

05.10 S DE=FEXPC-2*T/N> 

05-20 IF <DE-C 1-T/N)>5.3; S DE=1-T/N 

05.30 s de=ba-a*de;s ba=ba-de 

05.40 S DI=FEXP<K/2-K*T3 

05.50 S X=X+L SC T>-EC T> j*< i -ri>*DI 

05.60 S Y=Y-DE*R*DI 

05.70 S Z = S<T)-ECT);S Y=Y+Z*CFSGN(Z)-n/<:.0>*1.25'T 

g6. 10 S Z=X/( 1-R)*DI 

06'20 T Tj'DE^Z-. < l-R)*ZjrX/DI + DE,%6.04jDI^ 26.02>X + DE*DI:. ! 

* 



Stock Market Commissioiis 

ABSTRACT: During a stock purchase through a broker, a com- 
mission will be charged based on a series of rates for units of 100 
shares (even lots) and a dej&nite set of charges for smaller units 
(oaaiots;. 

This program accepts a "buy" or "sell" indication plus the num- 
ber and price of the shares involved. Given these facts, it then 
computes the net vou must "pav" or "receive". 



OPERATIONAL PROCEDURES: 

1. "Stock Market Commissions" is loaded by FOCAL-8. 

2. Type "GO" and respond to the dialogue and execution be- 
gins. 

3. A sample ran follows. 
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=i=l;,KHie. HL.L 

♦WRITE ALL 
C-FOCAL> 1969 

01 .05 E 

01.10 A !!"**** BUY OR SELL?"OR 

01.20 A !"HOW MANY " 7SHARES PRICE ?^ ! 

01.40 T %8.02>?PRICE*SHARES?^" $" 

01.45 S ODD=SHARES-FITR(SHARES/100)*100 

01.50 I C-OD) 2.05; 

01 .55 T- ! ! "ROUND LOTS 

01.60 S AM=PRICE*SHARES 

01.70 I CAM-400) 1.73 ;i CAM-2400) 1.75^1 (AM-5000) 1.77;C 

01.71 S CO=AM*.001+39;G 1.8 
01.73 S CO=AM*.020+ 3;G 1.8 
01.75 S -CO=AM*.010+ 7;G 1.8 
01.77 S CO=AM*.005+19;G 1.8 
01.80 T "COMMISSION IS "CO:.! 

01.85 I CFABSCOR-0BUY))> 1 .86;S NET = QU+AM-0C-C0;T"INC0ME";G 1.87 

01.86 SET NET=QU+AM+OC+CO ;T "OUTGO 

01.87 IF (CO+OC-6) 1.9; IF ( <OC + CO>/<OD+SH>- 1 .50) 1 .88W .9^ 1 .9 

01.88 T "IS ">?NET ?." $", ! ; GO 

01.90 A "EXCEPTIONAL COMMISSION " CO; G 1.85 

■02.05 T I !"ODD LOTS 

02.10 SET BR0KER=.125; IF (PRICE-55) 2.2; SET BR=.250 

02.20 S SH=SH-ODDS 

02.30 S QU=OD*PR 

02.40 IF (QU-400)2.47;iF CQU-2400)2 .45; IF (QU-5000 )2 .43 

02.41 S CO=QU*.001+37;G 2.8 
02.43 S CO=QU*.005+17;G 2.8 
08.45 S CO=QU*.010+5;G 2.8 
02.47 S CO=QU*.020+1;G 2.8 

02.80 T "COMMISSION ON "%3.0D." ODD SHARES IS "%7.02.CO+BR*OD 

02.90 S OC = CO+BR*ODDS ; IF COF-0BUY) 3.1;. 2.9 ^ 3.1 

02.91 T !" 0UTG0"> 0C+QU> ! 
02.93 IF CSH)E^0il .55 

03.10 T I" INCOME "QU-OC> ! 

03.20 GOTO 2.93 

* 

*G0 

***'* BUY OR SELL?:BUY 

HOW MANY SHARES :120 PRICE :22.50 

PRICE*SHARES= 2 700.00 $ 

ROUND LOTS COMMISSION IS = 29.50 
OUTGO IS NET = 2741.50 $ 

**** BUY OR SELL?:?00.00 @ 01.10 

(Program continues until stopped from the keyboard.) 
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Part Three 

Summary of Commands, 
Operations, and Error Mess^es 



FOCAL COMMAND SUMMARY 

Command Abbreviation Example of Form 
ASK A ASK X, Y, Z 



COMMENT C 



GOTO 



COMMENT 



CONTINUE C C 

DO D DO 4.1 







DO 4.0 






, DO ALL 


ERASE 


E 


ERASE 
ERASE 2.0 
ERASE 2.1 
ERASE ALL 


FOR 


F 


For i x,y,z; 
(commands) 

FOR i x,z; 
(commands) 


CO 


G 


GO 


GO? 


G ? 


GO? 



GOTO 3.4 



Explanation 

FOCAL types a colon for each 
variable; the user types a value 
to define each variable. 

If a line begins with the letter C 
the remainder of the line will be 
ignored. 

Dummy lines 

Execute line 4.1 ; return to 
command following DO 
command. 

Execute all group 4 lines. 
Return to command following 
DO cornmand, or when a 
RETURN is encountered. 

Erases the symbol table. 

Erases all group 2 lines. 

Deletes line 2.1. 

Deletes all userjnput. 

Where the command following 
is executed at each new value. 

X initial value of i 

y value added to i uritil i is 

greater than z. 

Starts indirect program at lowest 
numbered line number. 

Starts at lovyest numbered line 
number and traces entire 
indirect program until another ? 
is encountered, until an error 
is encountered, or until 
completion of program. 

St-arts indirect program 
(transfers control to line 3.4). 
Must have argumient. 
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IF 



WRITE 



IF (X)Ln, Ln, Ln 
IF (X)Ln, Ln; 
(commands) 
IF (X)Ln; 
(commands) 



Where X is a defined identifier 
a value, or an expression, followed 
byone to three line numbers. 
If X is less than zero, control is 
transferred to the first line 
number, if X is equal to zero, 
control is to the second line 
number. 

If X is greater than zero, control 
is to the third line number 



LIBRARY 


L C 


LIBRARY CALL 


Calls stored program from t 


CALL 




name 


disk. 


LIBRARY 


L D 


LIBRARY DELETE 


Removes program from the 


DELETE 




name 


disk. 


LIBRARY 


L L 


LIBRARY LIST 


Types directory of stored 


LIST 






program names. 


LIBRARY 


L S 


LIBRARY SAVE 


Saves program on the disk. 


SAVE 




name 




LINK 


L 


L 


For disk monitor system ; 



LOCATIONS 


L 


L 




1 V i 


MODIFY 1.15 


QUIT 


Q 


QUIT 


RETURN 


R 


RETURN 


SET 


S 


SETA=5/B*C; 


TYPE 


T 


TYPEA + B-C; 



w 



TYPE A - B, C/E; 



TYPE "TEXT 
STRING" 



WRITE 
WRITE ALL 

WRITE 1.0 
WRITE 1.1 



FOCAL types 4 locations 
indicating start and end of text 
area, end of variable list and 
bottom of push-down list. 

For paper-tape system; types 
same locations as LINK. 

Enables editing of any character 
on line 1.15 (see below). 

Returns control to the user. 

Terminates DO subroutines, 
returning to the original 
sequence. 

Defines identifiers in the 
symbol table. 

Evaluates expression and types 
out ^ and result in current 
output format. 

Computes and types each 
expression separated by 
commas. 

Types test. May be followed by ! 
to generate carriage return-line 
feed, or # to generate carriage 
return 

FOCAL types out the entire 
indirect program. 

FOCAL types out all group 1 
lines. 

FOCAL types out line 1 .1 . 
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FOCAL OPERATIONS AND THEIR SYMBOLS 

Mathematical operators: 
T Exponentiation 

* ^Multiplication 
/ Division 

+ Addition 

— Subtraction 

Control Characters: 

% Output format delimiter 

! Carriage return and line feed 

* Carriage return 

$ Type symbol table contents 

( ) Parentheses 1 

I I Square brackets > (mathematics) 

< > Angle brackets j 

" " Quotation marks (text string) 

? ? Question marks (trace feature) 

* Asterisk (high-speed reader input) 

Terminators: 

SPACE key (names) 

RETURN key (lines) (nonprinting) 

ALT MODE key (with ASK statement) 
Comma (expressions) 
; Semicolon (compounds and statements) 
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FOCAL'S FUNCTIONS 

) Square Root 

) Absolute Value 

) Sign Part of the Expression 



FSQT( 

FABS( 
FSCN( 
FITR( 
FRAN 




FCOS( 
FATN( 
FLOG( 
FDiS( 



) integerPartof the Expression FADC( 
( ) A Rcindom number 
Generator 

FEXP( ) Natural Base to the Power 
FS!N( ) Sine 



FNEW( 
FCOMf 



Cosine 
Arctangent 
Naperian Log 
Scope Functions 
Analog to Digital Input 
Function^ 

User Function 
Storage Function 



FOCAL'S 

Code 

?00.00 
?01 .00 
?01.40 
?01.78 
?01 .96 
?01.;5 

^ri-f . A 

?02.32 
?02.52 

?03.0S 
?03.28 
?04.39 
?04.52 
?04.60 
?04.:3 
?05.48 
?06.06 

fUt).D4 

?07.22 

?07.38 

?07. :9 

?07.;6 

<'08.47 

?09.11 

?10.:5 

?11.35 

?20.34 

?23.36 

?26.99 

?28.73 

?30.05 

?31.< 7 



ERROR DIAGNOSTICS t 

Meaning 

Manual start given from console. 

interrupt from keyboard via CTRL/C. 

Illegal step or line number used. 

Group number is too large. 

Double periods found in a line number 

Line number is too large. 

Group zero is an iiiegai line number 

Nonexistent group referenced by 'DO'. 

Nonesistent line referer>ced by 'DO'. 

Storage was filled by push-down-iist. 

NnnAYlctiant lino iicarJ T^+nr '("^^Tr^' ^. 'IC 

.-... '^^. . ^ ,,, ,^ ^j^^ ^, i,^t VJV>IV> v./t II , 

Illegal command used. 
Left of " = " in error in 'FOR' or 'SET'. 
Excess right terminators encountered, 
illegal terminator in 'FOR' command. 
Missing argument in display command. 
Bad argument to 'MODIFY'. 
Illegal use of function or number 
Storage is filled by variables. 
Operator missing in expression or double 'E' 
No operator used before parenthesis. 
No argument given after function call. 
Illegal function name or double operators. 

. S.AI v.. < •.• .v.-_>^j \^\J I IV^t II ICH.V.,1 I. 

Bad argument in 'ERASE'. 
jLuiage was iiiieu u\ text. 



nput buffer has overflowed. 

Logarithm of zero requested. 

Literal number is too large. 

Exponent is too large or negative. 

Division by zero requested. 

imaginary square roots required. 

Illegal character/unavailable command, or unavailable function 
used. 

t For FOCAL, 1969 op I y. 
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BASIC 
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INTRODUCTION TO BASIC PROGRAMMING 

BASIC is an easy to learn, conversational, computer language 
for scientific, business, and educational applications. It is used to 
solve both simple and complex mathematiczil problems and is di- 
rected from the user's Teletype.^ 

In writing a computer program, it is necessary to use a language 
or vocabularly that the computer will recognize. There are many 
computer languages and BASIC is one of the simplest because of 
the small number of readiy learned commands needed, its easy ap- 
plication in solving problems, and its practicality in an educational 
environment. 

BASIC is similar to other programming languages in many re- 
spects and is aimed at facilitating communication between the user 
and the computer. The novice computer user will benefit from read- 
ing the entire chapter from the beginning. The user who is already 
familiar with a language such as FOCAL or FORTRAN should 
first turn to the language summary at the end of the chapter. 

As a BASIC user, you type in your computational procedure as 
a series of numbered statements, making use of common English 
words and familiar mathematical notation. You can solve almost 
any problem by spending an hour or so learning the necessary ele- 
mentary commands '^^'ter becoming more experienced, you can 
add the more advant .^chniques needed to perform more intri- 
cate manipulations and to express your problem more efficiently 
and concisely. Once you have entered your' statements, you give a 
RUN command. This command initiates the execution of your 
program and causes the return of your results almost instantly. 

About Computing 

As we approach a computer terminal, there is a certain way we 
attack a problem. It is not enough to understand the technical com- 
mands of a computer language, we must also be able to correctly 
and adequately express the problem to be solved. For this reason 
it will be helpful to outline the process of setting up a problem for 
computer solution. 

The first step is to define the problem to be solved in detail. 
Understand each fact and possibility within the problem before 

1 At present BASIC is available only on the TSS/8 system, but plans are be- 
ing implemented to provide BASIC for individual use and batch processing. 
A stand-alone BASIC system called POLY BASIC is presently available 
from DECUS, the DEC User's Society. 
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attempting to go any further. Problems to be solved with BASIC 
are generally of a level which admit to fairly straightforward 
analysis. 

In computing there is always more than one correct way of ap- 
proaching a given problem. Generally a standard mathematical 
method for solution can be found, or a method developed. Pro- 
grams using the same method can still be written in more than one 
correct way. 

For some complicated programs a flowchart is useful. A flow- 
chart is a diagram which outlines the procedure for solving the 
problem, step by step. 

Having a diagram of the logical flow of a problem is a tremen- 
dous advantage to you when determining the mathematical tech- 
niques to be used in solving the problem, as well as when you write 
the BASIC program. In addition, the flowchart is often a valuable 
aid when checking the written program for errors. 

A flowchart is a collection of boxes and lines. The boxes 
indicate, in a general fashion, what is to be done; the lines indicate 
the sequence of the boxes. The boxes have various shapes repre- 
senting the type of operation to be'performed in the program (in- 
put, computation, etc.). Appendix C in Volume 1 of this set is a 
guide to the standard flowchart sym.bols anr" )rocedures. 

Following satisfactory completion of - jhart, you precede to 
write the program. To do this you need to understand the various 
instructions and capabilities of the BASIC language. The rest of 
this chapter is designed to teach you how to write programs in the 
BASIC language in a minimal amount of time. 

Once the correct procedure has been coded it is time to try it on 
the computer. At this point it is possible the program will not work 
perfectly as originally written. BASIC will locate any mistakes the 
programmer has made in typing his program and print appropriate 
error messages to help him correct them. It is important to under- 
stand that even if the program does run, the results will only be 
correct if the problem has been correctly analyzed and proper code 
written to achieve the correct solution. The computer can only do 
what you tell it to do. If you have unknowingly told the computer 
to do something other than what you wanted it to do, the results 
will be accurate according to the information the computer proc- 
essed. The computer cannot know what you really want, only 
what you have told it. 
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How to Use This Chapter 

The most straightforward treatment of the BASIC programming 
language will be obtained by reading this chapter from the begin- 
ning. Examples are taken directly from Teletype output so that the 
reader will become familiar with the computer output and formats. 
Once you have mastered the principles of BASIC language, you 
will most likely only need to refer to the summaries found at the 
end of the chapter. 

Detailed examples appear and may be run on the computer as a 
first exercise before attempting an original program. 

The early sections of this chapter contain directions on how to 
write a BASIC program. The section on Implementation Notes is 
recommended for every reader. Once you have written several 
BASIC programs you will find the section on Advanced BASIC 
helpful; reading that section too early in your programming experi- 
ence may be confusing. As soon as you are ready to try running a 
BASIC program on the computer turn to the section on Running a 
BASIC program. 



10 REMARK - PROGRAM TO TAKE AVERAGE OF 

1 5 REMARK - STUDE^JT GRADES AND CLASS GRADES 

20 PRINT "HOW MAMY STUDENTS^ HOW MANY GRADES PER STUDENT"; 

30 INPUT A^B 

40 LET 1=0 

50 FOR J=I TO A-1 

55 LET V=0 

60 PRINT "STUDENT NUMBER =";J 

75 PRINT "ENTER GRADES" 

76 LET D=J 

80 FOR K=D TO D+(B-1 ) 

81 INPUT G 

82 LET V=V+G 
8 5 NEXT K 

90 LET V=V/B 

95 PRINT "AVERAGE GRADE =";V 

96 PRINT 

99 LET Q=Q+V 

100 NEXT J 

101 PRINT 

102 PRINT 

103 PRINT "CLASS AVERAGE =";Q/A 

104 STOP 
140 END 
RUN 



Figure 12-1 An Example BASIC Program 
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HOV MA>JY STUDEMTS^ HOW MAMY GRADES PER STUDENT? 5,4 
STUDENT NUMBER = 

? 78 
? 86 
? 88 
? 74 
AVERAGE GRADE =81-5 

STUDEMT NUMBER = 1 

ENTER GRADES 

? 59 

? 86 

? 70 

? 87 

AVERAGE GRADE =75-5 

STUDENT NUMBER = 2 
ENTER GRADES 
? 58 
? 64 
? 75 

AVERAGE GRADE = 69-25 

STUDENT NUMBER = 3 
ENTER GRADES 
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? 92 
? 85 
? 79 
AVERAGE GRADE = 86 

STUDENT NUMBER =4 

ENTER GRADES 

? 60 

? 78 

? 85 

? 80 

AVERAGE GRADE = 75-75 

CLASS AVERAGE = 77-6 

READY 



Figure 12-1 An Example BASIC Frogram (contmued) 
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FUiNDAMEiNTALS OF PROGRAMMING IN BASIC 
An Example Program and Output 

At this point the program in Figure 12-1 may mean little to you, 
although the output (following the word RUN) should be fairly 
clear. One of the first things you notice about the program is that 
each line begins with a number. BASIC requires that each line be 
numbered with an integer from 1 to 2046. When the program is 
ready to be run, BASIC executes the statements in the order of 
their line numbers, regardless of the order in which you typed the 
statements. This allows the later insertion of a forgotten or new 
line. The programmer is, therefore, advised to leave gaps in his 
numbering on the first typing of a program. Numbering by fives or 
tens is a common practice. 

The next thing we notice about the program is that each line 
begins with a word, a command to the computer to tell it what to 
do with the information on that line. BASIC does not understand 
the statement V=0 unless we write LET V=0. Once we under- 
stand the usage of these commands we are able to describe our 
problem to the computer. 

REM Statement 

The REM or REMARK statement allows the programmer to 
insert notes to himself or anyone who will read the program later. 
The form is: 

(line number) REM (message) 

Everything following REM is ignored by the computer. In Figure 
12-1, line 10 is a remark describing what the program does. It is 
often useful to put the name of the program and information on 
what the program does at the beginning for future reference. Re- 
marks throughout the body of a long program will help later de- 
bugging by explaining the function of each section of code within 
the whole program. 

Numbers 

In BASIC, as in all languages, there are conventions to be 
learned. The most important initial concepts are (1) how do we 
express a number to the computer and (2) how do we create 
algebraic symbols. 

BASIC treats all numbers as decimal numbers, which is to say 
that it assumes a decimal point after an integer, or accepts any 
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number containing a decimal point. The advantage of treating all 
numbers as decimal numbers is that the programmer can use any 
number or symbol in any mathematical expression, knowing that 
the computer can combine the numbers given. (In some languages 
integers must be used separately from decimal numbers.) 

A third form (other than integers and real numbers) we use in 
expressing numbers to the computer is called exponential form. In 
this form a number is expressed as a decimal number times some 
power of 10. For example: 

23.4E2 = 2340 

The E can be read as "times 10 to the — power" depending upon 
the positive or negative integer following E. A number can be ex- 
pressed in exponential form by the programmer anywhere in his 
program. You may input data in any form. Results of computa- 
tions are printed out as decimal numbers if they are in the range 
.01^N< 1,000,000. Outside this range numbers are automatically 
printed out in E format. The computer handles seven significant 
digits in normal operation and input/ output, as seen below: 



.01 .01 

.0099 9.900000E-3 

999999 999999 

1000000 l.OOOOOOE+6 

The computer automatically omits printing leading and trailing 
zeros in integer and decimal numbers and formats all exponential 
numbers in the following form: 

(sign) digit . six digits E ± exponent value 

For example: 

— j.-^/Ozisii-rs is equal lo — .34/,u2i,60u 
7.260000E-4 is equal to .000726 

All letters are printed as capitals at the Teletype console. There- 
fore, a convention used by programmers, and which occurs on 
Teletype output, is that to distinguish zeros from the letter "oh" 
we slash zeros (0). This enables accurate input to the computer 
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(when you are typing a program previously written down) and 
ease of understanding in reading computer output (in which zeros 
are all slashed). Notice that unlike a typewriter, the letter "el" 
does not produce the number one (1) on the console keyboard. 
All numbers are on the top row of the keyboard. Notice also that 
the computer will not insert commas into large numbers, as we are 
accustomed to doing (i.e., 1,742,300 is printed as 1742300). 

Variables 

A variable in BASIC is an algebraic symbol for a number, and 
is formed by a single letter or a letter followed by a digit.' For 
example: 

Acceptable Variables Unacceptable Variables 



I 


2C 


— a digit cannot begin 


B3 




a variable 


X 


AB 


— two or more letters 
cannot form a vari- 
able 



We assign values to variables by either inputting these values or 
indicating them in a LET statement. 

LET Statement 

Before examining the LET statement we should first clarify the 
meaning of the equal sign (=). For example, the command: 

10 LET A = B + C 

tells the computer to add the values of B and C and store the result 
in a variable called A (The number 10 is the line number men- 
tioned earlier) . 

20 LET D = 7.2 

means to store the value 7.2 in the variable D. 

30 LET D = 406 

causes the value of D which was 7.2 (above) to be changed to 406. 
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The equal sign means replacement rather than equality. In 
algebra the formula: 

X = X + 1 

is meaningless, but when we say: 

1 /m T TTT- ■ V — V J. 1 

» — "^^^ r.r.^ tr. fhf> nnrvf-nt vahjQ of X and store the result 

back in the variable X." 

Values of variables can be reassigned throughout the program 
as the programmer wishes. The equal sign, then shows a replace- 
ment relationship where the expression after the equal sign is eval- 
uated and replaces the old value (if any) of the variable indicated. 

The LET statement is of the form : 

(line number) LET (variable) = (formula) 
where a formula is either a number, another variable, or an arith- 
metic expression. The LET statement is the most elementary 
BASIC statement, used when computation is to be performed or, 
.- __-i --i — — ^^■,■^^^^,r ^■i,\\f=nf^\Tf^r ■> rtpw value is assisned to a 

variable. 

Arithmetic Operations 

Looking at the console keyboard we can find some of the usual 
arithmetic symbols (+, -, and =). BASIC can perform addition, 
subtraction, multipUcation, division and exponentiation as well as 
other more complicated operations explained later. Each math- 
ematical formula fed to the computer must be on a single line, 
with a line number and an appropriate command. The five op- 
erators used in writing most formulas are: 



Operator 


Meaning 


Example 


-f 


Addition 


A + B 


— 


Subtraction 


A - B 


* 


Multiplication 


A * B 


/ 


Division 


A / B 


t 


Exponentiation 
(Raise A to the 
Bth power) 
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In BASIC, the mathematical formula: 
would be written: 

10 LET A = 7 * ((Bt2 + 4>/X) 

How does the computer know what operation to perform first? 
There are conventions built into computer languages; BASIC per- 
forms arithmetic operations with the order of evaluation indicated 
below: 

1. Parentheses receive the top priority. Any expression within 
parentheses is evaluated before an unparenthesized expres- 
sion. 

2. In absence of parentheses the order of priority is: 

a. Exponentiation 

b. Multiplication and Division 

c. Addition and Subtraction 

3. If 1 or 2 does not clear ambiguity, the order of evaluation is 
from left to right as we would read the formula. 

So in the example above, B f 2 is evaluated first, then (B 1 2+4) 
and then ((BT2+4)/X), finally 7* ((Bt2+4)/X). Keeping the 
conventions above in mind, AfBtC will be evaluated as 
(AtB) tC, likewise A/B*C is evaluated as (A/B)*C. 

Parentheses and Spaces 

Use of parentheses allows us to change the order of priority of 
evaluation in rule 2 above. They also prevent any confusion or 
doubt on our part as to how the expression is evaluated. To make 
a formula easier to write as well as read, it is frequenty a good idea 
to provide more parentheses than strictly required. For example, 
which is easier to read: 

A*Bt2/7 + B/C*Dt2 
(A*Bt2)/7 + (B/C)*Dt2 
((A*Bt2)/7) + ((B/C)*Dt2) 
(((A*(Bt2))/7) + ((B/C)*(Dt2))) 

Each of the above formulas will be executed the same way, but 
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which makes the most sense to the programmer reading it, or 
perhaps trying to make corrections later? On the other hand, 
which has superflous parentheses not required for clarity? 

Spaces may also be used freely to make formulas easier to read. 

10 LET B = Dt2 + 1 

instead of: 

10LETB=Dt2+l 

Functions 

BASIC performs several mathematical calculations for the pro- 
grammer, eliminating the need for tables of trig functions, square 
roots and logarithms. These functions have a three letter call name, 
(the argument X can be a number, variable, formula, or another 
function) and are written as follows: 

Functions Meaning 

SIN(X) Sine of X (where X is expressed in radians) 

is returned. 

COS(X) Cosine of X (where X is expressed in ra- 

dians) is returned. 

TAN(X) Tangent of X (where X is expressed in 

radians) is returned. 

ATN(X) Arctangent of X is returned as an angle in 

radians 

EXP(X) e'^" (where e = 2.712818) is returned. 

LOG(X) Natural logarithm of X, logeX, is returned. 

ABS(X) Absolute value of X, jXj, is returned. 

SQR(X) Square root of X, /XTis returned. 

These functions are built into BASIC and can be used in any 
statement as part of a formula. For example: 

10 LET A = SINCABS(X) )/2 
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will cause A to be set equal to one half the value of the sine of the 
absolute value of X. 

MORE COMPLEX FUNCTIONS 

Three other functions 'are available, and although they are not 
as readily useful to the beginning programmer, they will become 
so as skill in designing program logic increases. 

Sign Function, SGN(X) 

The sign function returns the value +1 if X is a positive value, 
if X is 0, and -1 if X is negative. For example: SGN (3.42) = 1 , 
SGN(-42) = -],andSGN(23-23) = 0. 



10 REM- SGN FUNCTION EXAMPLE 

20 READ A^B 

25 PRINT "A="A>"B="B 

30 PRINT "SGN<A)="SGN(A),"SGNCB)="SGN(B) 

40 PRINT "SGN(INT(A))="SGN<INT(A)) 

50 DATA -7.32> .44 

60 END 

RUN 

A=-7.32 B= .44 

SGN(A)=-1 . SGN(B)=1 
SGN(INT(A)) = --1 



READY 



Integer Function, INT(X) 

The integer function returns the value of the greatest integer not 
greater than X. For example INT (34. 67) = 34. INT can be used 
to round numbers to the nearest integer by asking for INT(X+.5). 
For example: INT(34.67+.5) = 35. INT can also be used to 
round to any given decimal place, by asking for 

INT(X*]0tD+.5)/10tD 

where D is the number of decimal places desired, as in the following 
program: 
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la uiuei 10 ooiain ranaom aigits trom to 9, change line 40 to 
read : 



40 PRI\ii I>JT( 1 0*R\1DC0 ) ) J 

— .^„ ^. .^x^ tv^ luu uie piogmm again, inis iime trie results 
will look as follows: 



RAMDOM \TUMBERS 

2 2 , 6 

7 6 8 

9 9 



'7 



9 
7 
i 
7 4 1 

5 9 2 

5 6 6 



2 
6 



J 
1 



READY 

It is possible to generate random numbers over any range. For ex- 
ample, if the range (A3) is desired, use: 

(B-A)*RND(0)+A 
to produce a random number in the range A<n<B. 



RANDOMIZE STATEMENT 

If you want the random number generator to calculate different 
random numbers every time the program is run, BASIC provides 
the RANDOMIZE statement. RANDOMIZE is normally placed at 

function). When executed, RANDOMIZE causes the RND func- 
tion to choose a random starting value, so that the same program 
run twice will give different results. 

For example: 

10 RANDOMIZE 
20 PRIMT RNJD(0) 
30 EMD 
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will print a different number each time it is run. For this reason, 
it is a good practice to debug a program completely before inserting 
the RANDOMIZE statement. (RANDOMIZE uses the low order 
12 bits of the time of day as a starting value, thus there are 4096 
distinct starting points . ) 

The form of the statement is as follows: 

(line number) RANDOMIZE 
or (hne number) RANDOM (abbreviated form) 



To demonstrate the effect of the RANDOMIZE statement on two 
runs of the same program, we insert the RANDOMIZE statement 
as statement 15 below: 



15 RANDOM 




20 FOR 1=1 TO 5 




25 PRINT "VALUE" 


I "IS" RND(0) 


30 NEXT I 




35 END 





RUN 

VALUE 1 IS .7004438 
VALUE 2 -IS .6706673 
VALUE 3 IS .7200098 
VALUE 4 IS .2840528 
VALUE 5 IS .2242288 



READY 

RUN 

VALUE 1 IS .590 55 

VALUE 2 IS .3409859 

VALUE 3 IS .7309656 

VALUE 4 IS .3169203 

VALUE 5 IS .3228311 



READY 



Clearly, the output from each run is different. 
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USER DEFINED FUNCTIONS 

In some programs it may be necessary to execute the same math- 
ematical formula in several different places. BASIC allows the 
programmer to define his own functions and call these functions in 
the same way he would call the square root or trig functions. 

These user defined functions consist of a three-letter function 
name, the first two letters of which should be FN. 

We define the function once at the beginning of the program 
before its first use. The defining or DEF statement is formed as 
follows: 

(line number) DEF FNA(X) = formula (X) 

where A is any letter. The argument (X)^ must be the same on each 
side of the equal sign and may consist of one or more variables. 
For example: 



10 DEF FNACS) = St2 

will cause a later statement: 

20 LET R = FMA(4)+1 

to be evaluated as R=17. 
The two following programs 

Program #1: 

10 DEF FNS(A) = AtA 

20 FOR 1=1 TO 5 

30 PRINT I, FMSC I ) 

40 MEXT I 

50 EISID 

Program #2: 

10 DEF FNSCX) = XtX 
20 FOR 1=1 TO 5 
30 PRINT 1, FNS(I) 
40 NEXT I 
50 END 
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both cause the same output: 



RUN 

1 1 

2 ^ 

3 27 
h 25 



£. 



5 3125 

READY 

The argument in the DEF statement can be seen to have no 
significance; it is strictly a dummy variable. The function itself can 
be defined in the DEF statement in terms of numbers, variables, 
other functions or mathem.aticai expressions. For example: 

10 DEF FNACX) = XT2+3+X+4 

15 DEF FNB(X) = FNA(X)/2 + FNACX) 

20 DEF F\^CCX> = SQRCX+'4) + 1 

The statement in which the user defined function appears may 
have that function combined with numbers, variables, other func- 
tions or m.athem.atical expressions. For example: 

40 LET R = FNA(X+Y+Z) 

The user defined function can be a function of more than one 
variable, as shown below: 

25 DEF FNL(X:,Y>Z) = SQR(Xt2 + Yt2 + Zt2) 

A later statement in a program containing the above user defined 
function rnight look like the following: 

55 LET B = FNL(D;.L>R) 

wiicic Ju>, ju, aiiu IV ijavc auiiiw vaiuwD m Liiv j^xv/£,iuiij. 

The program in Figure 12-2 contains examples of a multi- 
variable DEF statement in lines 11^ 21 5 and 31- 
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1 

10 

11 

12 

20 

21 

22 

30 

31 

100 

110 

120 

130 

140 

150 

200 

205 

210 

220 

230 

240 

2 50 

260 

270 

280 

290 

300 

30 5 

310 

320 

330 

340 

350 

360 

800 

810 

820 

830 

840 

850 

860 

8 70 

880 

890 

900 

999 

RUN 



MODULUS ARITHMETIC 
FIMD X MOD M 
FNMCX^M)=X-M*INT(X/M) 

FIND A+B MOD M 
FNA(A,B,M)=FNMCA+B,M) 

FIND A*B MOD M 
FNB(A,B,M)=FNM(A*B:»M) 

"ADDITION AND MULTIPLICATION TABLES MOD M" 

"GIVE ME AN M"; 

M 



"ADDITION 
800 

M-1 



REM 

REM 

DEF 

REM 

REM 

DEF 

REM 

REM 

DEF 

PRINT 

PRINT 

INPUT 

PRINT 
PRINT 

GOSUB 

FOR 1=0 TO 

PRINT i;" "; 

FOR J=0 TO M-1 

PRINT FNA(I,J,M); 

NEXT J 

PRINT 

NEXT I 

PRINT 

PRINT 

PRINT "MULTIPLICATION 

GOSUB 800 

FOR 1=0 TO M-1 

PRINT I;" "; 

FOR J=0 TO M-1 

PRINT FNB(I,J,M); 

NEXT J 

PRINT 

NEXT I 

STOP 

PRINT 

PRINT TAB(5); 0J 

FOR 1=1 TO M-1 

PRINT Ij 

NEXT I 

PRINT 

FOR 1=1 TO 3*M+5 

PRINT 

NEXT I 

PRINT 

RETURN 

END 



TABLES MOD"; M 



TABLES MOD" M 



I _ii . 



ADDITION AND MULTIPLICATION 
GIVE ME AN M? 7 



TABLES MOD M 



Figure 12-2 Modulus Arithmetic 
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ADDITION TABLES MOD 7 
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READY 



Figure 12-2 Modulus Arithmetic (continued) 

INPUT/ OUTPUT STATEMENTS 

One of the most important groups of statements is the group of 
I/O (Input/Output) statements. These I/O statements allow us 
to bring data into our programs during execution when and from 
where we choose. Similarly, we can choose the output format which 
best suits our needs. In the case of the example programs in Figures 
12-1 (at the beginning of the chapter), data was typed in at the 

READ Statement 

A simple way to put data into a program is with READ and 
DATA statements. One statement is never used without the other. 



Tit- _ T1T-? A TV _i„* i. :_ _f 4.1.~ C^^.^ . 

1 lie XVXI^m-' MillCUlClJl IS Ul tlJC iUllll. 



(line number) RiiAu (variables separated by commas) 
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For example: 



10 READ A,B>C 



where A, B, and C are the variables we wish to assign values. In 
order to assure that all variables are assigned values before compu- 
tation begins, READ statements are usually placed at the beginning 
of a program, or at least before the point where the value is re- 
quired for some computation. 

DATA Statement 

Now that we have told the computer to read the values for three 
variables, we must supply those values in a DATA statement of 
the form: 

(line number) DATA (numeric values separated by commas) 
For example: 

70 DATA 1^2.. 3 

The DATA statement provides the values for the variables in the 
READ statement (s). The values must be separated by commas, in 
the same order as the variables are listed in the READ statement. 
Thus at execution time A=l, B=2, and C=3 according to the two 
lines above. 

The DATA statement is usually placed at the end of a program 
before the END statement, so as to be easily accessible to the pro- 
grammer should he wish to change his values. 

A given READ statement may have more or fewer variables 
than there are values in any one DATA statement. READ causes 
BASIC to search all available DATA statements, in the order of 
their line numbers until values are found for each variable. A sec- 
ond READ statement will begin reading values where the first 
stopped. If at some point in your program you attempt to read 
data which is not present or if your data is not separated by com- 
mas, BASIC will stop and print an OUT OF DATA IN LINE 
XXXX message at the console, indicating the line which caused 
the error. 
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RESTORE Statement 

If it should become necessary to use the same data more than 
once in a program, the RESTORE statement will make it possible 
to recycle through the DATA statements beginning with the lowest 
numbered DATA statement. The RESTORE statement is of the 
form : 

(line number) RESTORE 
For example: 

85 RESTORE 

will cause the next READ statement following line 85 to begin 
reading data from the first DATA statement in the program, re- 
gardless of where the last data value was found. 

You may use the same variable names the second time through 
the data or not as you choose, since the values are being read as 
though for the first time. In order to skip unwanted values dummy 
variables must be read. In the following example, BASIC prints: 



on the last line because it did not skip the value for the original 
N when it executed the loop beginning at line 200. 



ILLUSTRATE USE OF RESTORE 
X ARE:" 



10 


REM - PROGRAM TO 


20 


READ W 


25 


PRINT "VALUES OF 


30 


FOR 1=1 TO N 


40 


READ X 


50 


PRINT X^ 


60 


NEXT I 


70 


RESTORE 



185 PRINT 

190 PRINT "SECOND LIST OF X VALUES" 

200 PRINT "FOLLOWING RESTORE STATEMENT:" 

210 FOR 1=1 TO N 

220 READ X 

230 PRINT X^ 

240 NEXT I 

4;.1>2 

3,4 
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250 


DATA 


251 


DATA 


300 


END 


RUN 





VALUES OF X ARE: 

^ 2 3 

SECOND LIST OF X VALUES 
FOLLOWING RESTORE STATEMENT: 

^ 1 2 

READY 



INPUT Statement 

The second way to input data to a program is with an INPUT 
statement. This statement is used when writing a program to pro- 
cess data to be supplied while the program is running. The pro- 
grammer types in the values as the computer asks for them. 
Depending upon how many values are to be brought in by the 
INPUT command, the programmer may wish to write himself a 
note reminding himself what data is to be typed in at what time. 
In the example program in Figure 12-3 the question is asked at 
execution time "INTEREST IN PERCENT?" "AMOUNT OF 
LOAN?", and "NUMBER OF YEARS?" The programmer knows 
which value is requested and proceeds to type and enter the ap- 
propriate number. 



10 REM - PROGRAM TO COMPUTE INTEREST PAYMENTS 

20 PRINT "INTEREST IN PERCENT"; 

25. INPUT J 

26 LET J=J/100 

30 PRINT "AMOUNT OF LOAN"; 

35 INPUT A 

40 PRINT "NUMBER OF YEARS"; 

45 INPUT N 

50 PRINT "NUMBER OF PAYMENTS PER YEAR"; 

55 INPUT M 

60 LET N=N*M 

65 LET I=J/M 

70 LET B=l +1 

75 LET R=A*I/(1 -1/BTN) 

78 PRINT 

80 PRINT "AMOUNT PER PAYMENT =";R 

85 PRINT "TOTAL INTEREST =";R*N-A 

88 PRINT 

90 LET B=A 

95 PRINT " INTEREST APP TO PRIN BALANCE" 

Figure 12-3 Interest Example Program 
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100 LET L=B*I 

1 10 LET P=R-L 

120 LET B=B-P 

130 PRINT L^P^B 

140 IF B>=R GOTO 100 

150 PRINT B*I;.R-B*I 

160 PRINT "LAST PAYMENT =" B*I+B 

200 END 

RUN 

INTEREST IN PERCENT? 9 

AMOUNT OF LOAN? 2503 

NUMBER OF YEARS? 2 

MijMRKR OF PAYMENTS PER YEAR? 4 

AMOUNT PER PAYMENT = 344.9617 
TOTAL INTEREST = 259.6932 



INTEREST 


APP TO PR IN 


BALANCE 


56.25 


288.71 17 


221 1 .288 


49.75399 


295.2077 


1916.081 


43.11182 


301 .8498 


1614.231 


36.32019 


308.6415 


1305.589 


29.37576 


315.5859 


990 .0035 


22.27508 


322.6866 


667.31 7 


15.01463 


329.947 


33 7 . 3,65 9 




^ o <-* n f-tr^ o 




7.590S24 


^) O 1 * O 1 iJU 




LAST PAYMENT 


- 344.9 6«y ^ 





READY 

Figure 12-3 Interest Example Program (coniinued) 

ine liNJf u 1 sLatexiieiiL is oi tuc iuim. 

(Une number) INPUT (variables separated by commas) 
For example: 

10 INPUT A>B>C 

,- -ii „-,-,-p *>,« ^^.-.,r,,,f=^ f.-^ t-sqncp. Amt'iv-o execution, print a Question 
mark and wait for the user to type in three numerical values sep- 
arated by commas and entered to the computer by hitting the RE- 

TT TI3XT V£»T7 r,+ +Tio (^rtA nf thp list 

As you wiii nonce m nguic ±^-~>, "iv vj.^wi— ^^ ...a..v ^^ ^ 

maticallv useful if vou care to formulate a verbal question which the 
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input value will answer. This will be further explained in the sec- 
tion on the PRINT Statement. 

The output for the program begins after the word RUN and in- 
cludes a verbal description of the numbers. This verbal description 
on the output is optional with the programmer, although it has a 
definite advantage in ease of use and understanding. 

Only one question mark is printed per INPUT statement, so the 
programmer must be careful to insert the correct number of vari- 
ables at that point, separating them by commas if more than one 
are to be typed. When the correct number of variables have been 
typed, hit the RETURN key to enter them to the computer. 

If too few values are listed, the message: 

MORE? 

will appear. If too many vaues are typed, the message: 

TOO MUCH INPUT^ EXCESS IGNORED 

will be given. 
PRINT Statement 

The PRINT statement is the output statement for BASIC. De- 
pending upon what follows the PRINT command, we can create 
numerous different output formats and even plot points on a graph. 

In order to skip a hne on the output sheet, type only a line 
number and the command PRINT: 

10 PRINT 

When the computer comes to line 10 during the run, the paper on 
the console will be advanced by one line. In the example program 
in Figure 12-3, line 53 causes a blank line on the output sheet 
between the section where the user enters data to the computer and 
the section where the computer supplies the results of the program. 
In order to have the computer print out the results of a compu- 
tation, or the value of any variable at any point in the program, the 
user types the line number, the command PRINT, and the variable 
names separated by commas: 

10 PRINT A>B^C,D^E 
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This will cause the values of A, C + ^, and the square root of A 
to be printed in the first three of the five fixed format columns (of 
14 spaces each) which BASIC uses for most output. For example 
the statement: 

10 PRINT A^C+B,SQRT(A) 

will cause the values of the variables to be printed like this: 

12.3 12-3 12.3 12.3 12.3 

1 . 1 T-« /^ T~V T-' 1 -1'^ '> \-fTU 4-1 X; • J„U1«,^ 

VVllClC iS., D, K^, LJ, CL CCJUCII l^.J. ¥V llCll lllUlC tliail live vaiiauito 

are listed in the PRINT statement and separated by commas, the 
sixth value begins a new line of output. 

The third possibility for the PRINT statement is to print but a 
message, or some text. The user may ask that any message be 
printed by placing the message in quotation marks. For example: 

10 PRINT "THIS IS A TEST" 

when line 10 above is encountered during execution the following 
will be printed: 

THIS IS A TEST 



(Going back to the example program in Figure 12-3, notice the 
function of lines 80, 85, and 90.) 

Looking at Figure 12-3 shows that the PRINT statement can 
combine the second and third options. One PRINT command tells 
the computer to print: 

AMOUNT PER PAYMENT = 344.9617 

The command which did this was line 80: 

80 PRINT "AMOUNT PER PAYMENT =";R 

It is not necessary to use the standard five column format for 

be printed following the last character of text or data printed. A 
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comma (,) wiU cause a jump to the next of the five output format 
columns. BASIC allows the user to omit format control characters 
(,) or (;) between text and data, and assumes a semi-colon. For 
example: 



80 PRINT "AMOUMT PER PAYMENT =" R 

will result in the same output as line 80 above. 

In addition to the capabilities already mentioned, the PRINT 
statement can also cause a constant to be printed at the console. 
For example: 

10 PRINT 1..234, SQR(100/4) 

will cause the following to be printed at execution time: 

1 '234 5 

Any number present in a PRINT statement will be printed exactly 
as shown. Any algebraic expression in a PRINT statement will be 
evaluated with the current value of the variables and the result 
printed. 

In Figure 12-3, line 160 reads: 

160 PRINT "LAST PAYMENT =" B*I+B 

and caused the following to be printed upon execution: 

LAST PAYMENT = 344.9608 

This demonstrates the omission of the format control character as 
well as the ability of the PRINT statement to print text and do 
calculations. 

The following example program illustrates the use of the control 
characters in PRINT statements: 
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10 READ A^3:.C 

20 PRINT A>B>C:.At2;.Bt2^Ct2 

30 PRINT 

40 PRINT A;B;C;At2;Bt2;Cr2 

50 DATA 4^5^ 6 

60 END 

RUN 

4 5 

36 



16 



25 



READY 



If a number should happen to be too long to be printed on the 
end of a single line, BASIC automatically moves the number en- 
tirely to the beginning of the next line. 

TAB Fonction 

When using the PRINT statement thus far we have had to print 
a blank character wherever we wanted blank space; there was no 

^-_i J. 1 „,„ ^;«+;»,o Tna TAI? fiirsr>tiAr> is a more soohisti- 

cated technique allowing the user to position the printing of charac= 
ters anywhere on the Teletype paper line. This line is 72 characters 
long, and the print positions can be thought of as being numbered 
from to 71, going from left to right. The TAB function argument 
can be positive or negative: TAB(-l) causes a tab over to 
position 71, TAB(3) causes a tab to position 3. (The TAB func- 
tion can be thought of as operating mOuUiO ,^./ 

After performing TAB(n), the next character to be printed will 
be placed in position n. If n is a position to the left of the current 
position, a carriage return (without a Mne feed) is used to correctly 
position the printing head. 
For example: 



10 PRINT "X =";TAB(2);"/";3. 14159 

will print the slash on top of the equal sign, as shown below: 
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The following is an example of the sort of graph that can be drawn 
with BASIC using the TAB function: 

30 FOR X=0 TO 15 STEP .5 

40 PRINT TAB(30+15*SINCX)*EXP(-.1*X) );"*" 

50 NEXT X 

60 END 

RUN 



* 






* 

* 
* 



* 



* 

* 



* 



READY 



SUBSCRIPTS AND LOOPS 

Subscripted Variables 

In addition to simple variable names, there is a second class of 
variables which BASIC accepts called subscripted variables. Sub- 
scripted variables provide the programmer with additional comput- 
ing capabilities for dealing with hsts, tables, matrices, or any set of 
related variables. In BASIC variables are allowed one or two sub- 
scripts. A single letter forms the name of the variable followed by 
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one or two integers in parentheses, separated by commas, indicating 
the place of that variable in the list. You can have up to 26 arrays 
in any program (corresponding to the letters of the alphabet), 
subject only to the amount of core space available for data storage. 
For example, a list might be described as A(I) where I goes from 

1 to 5 as shown below: 

A(l), A(2),A(3),A(4),A(5) 
This allows the programmer to reference each of the five elements 
in the list A. A two dimensional matrix A (I, J) can be defined in 
a similar manner, but the subscripted variable A can only be used 

It is possible, however, to use the same variable name as both a 
subscripted and as an unsubscripted variable. Both A and A(I) 
are valid variable names and can be used in the same program. 

Input can be done easily using subscripted variables, as follows : 

10 REM - PROGRAM DEMONSTRATING READING OF 

11 REM - SUBSCRIPTED VARIABLES 
1 5 DIM A(5)^ BC2>3) 

18 PRINT "A'CD WHERE A = l TO 5:" 
20- FOR 1 = 1 TO 5 

2 5 READ ACI ) 
30 PRINT ACI); 
35 NEXT I 

Oa O O T A. T T 

39 PRINT 

40 PRINT "BCI,J) WHERE 1=1 TO 2" 

41 PRINT " AND J=l TO 3:" 

/i«-i ir-no T_i-Tr\ n 

43 PRINT 

44 FOR J=l TO 3 
48 READ BCIjJ) 
50 PRINT B( I^ J); 

55 NEXT J 

56 NEXT I 

60 DATA 1 ,2;.3:.4>5^6W>8 
'61 DATA 8^ 7>6^5^4j3j2^ 1 
65 END 
RUN 



BCI^J) WHERE 1=1 TO 2 
AND J=l TO 3; 



7 
7 



READY 
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DIM STATEMENT 

As in the preceding examples, we see that the use of subscripts 
requires a dimension (DIM) statement to define the maximum 
number of elements in the array. The DIM statement is of the 
form: 

(hne number) DIM Vi(na), v.Cn., nio) 
where v„ indicates an array variable name and n and m are integer 
numbers indicating the largest subscript value required during the 
program. For example: 

10 DIM AC6j 10 ) 

The first element of every array is automatically assumed to 
have a subscript of zero. Dimensioning A(6, 10) sets up room for 
an array with 7 rows and 11 columns. This matrix can be thought 
of as existing in the following form : 

Ao^o A()4 . , , Ao,io 
* A]^,) Ai^i . , . Aijo 

A2,0 Ao,! . , . Ao.io 









A6,0 


Ae.i 


, , 




as shown 


in the program 


below; 






10 REM - 


MATRIX 


CHECK PROGRAM 




15 DIM A(6> 


10) 














20 FOR I 


=0 


TO 6 














22 LET Ad, 


0) = 


I 












25 FOR J: 


= 


TO 10 












28 LET A(0, 


J) = 


J 












30 PRI\'T 


A(I, J) 














35 NEXT J 
















40 PRINT 


















4 5 NEXT ] 


L 
















50 END 


















RUN 
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9 


1 
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A 



6.10 



READY 
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Notice that a variable has a value of zero until it is assigned a 

value. , , f 

If the user wishes to conserve core space, and not make use ot 
the extra variables set up within the array, he should, for example 
say DIM A(5, 9) which woulld result in a 6 by 10 array which 
would be referenced beginning with the A(0, 0) element. 

You can define more than one array in a single DIM statement: 



10 DIM AC20 )j B(4;r 7) 

■.. • . i_ .ii. j-x.^ i:^* \ ^r,A tVia mfltriY T? 

will aimensioii uoui mt noi. /-». ""v^ "— — - - - 

A number mu£t be used to define the maximum size of the array. 
A variable inside the parentheses is not acceptable and would re- 
sult in an error message by BASIC at run time. The amount of 
user core not filled by the program will determine the amount of 
data the computer can accept as input to the program at any one 
time In some programs a PROGRAM TOO LARGE message 
may occur, indicating that core will not hold an array of the size 
requested. In that event, the user should change his program to 
process part of the data in one run and the rest later. 

Loops _ 

So far in this chapter we have seen tOR and NEXT statements 
used several times in examples. These two statements define the 
beginning and end of a loop. A loop being a set of instructions 
which modifies itself and repeats until some terminal condition is 
reached. 

FOR STATEMENT 

The FOR statement is of the form: 

(line number) FOR (variable) = (formula) TO (formula) 

STEP (formula) 

For example: 

10 FOR K=2 TO 20 STEP 2 

which will iterate (cycle) through the designated loop using K as 
2, 4^ 6, 8, . . . , 20 in calculations involving K. When the value 20 
: ' ^^^^L^A fu^ 1^^,^ ^c if-ft behind and the Drosram soes to the line 
following the NEXT statement (described below). 
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The variable mentioned in the definition must be unsubscripted, 
although a common use of such loops is to deal with subscripted 
variables using the FOR variable as the subscript of a previously 
defined variable. The formulas mentioned in the definition can be 
real or integer numbers, variables, or expressions. 

NEXT STATEMENT 

The NEXT statement signals the end of the loop and at that 
point the computer adds the STEP value to the variable and checks 
to see if the variable is still less than the terminal value. When 
the variable exceeds the terminal value control falls through the 
loop to the following statement. 

When control falls through the loop the variable value is one 
step greater than it was when the loop was last executed. For some 
programs this information may be useful. 

If the STEP value is omitted, +1 is assumed. Since +1 is the 
usual STEP value, that portion of the statement is frequentlv 
omitted. 

In the following example we see a demonstration of the last two 
paragraphs. The loop is executed 10 times, the value of lis 11 
when control leaves the loop and -f 1 is the assumed STEP value. 

10 FOR 1=1 TO 10 

20 NEXT I 

30 PRINT I 

40 END 

RUN 



11 



READY 



If line 10 had been: 

10 FOR 1=10 TO 1 STEP -1 

the value printed by the computer would be 0. 

The numbers used in the FOR statement can be "formulas" as 
indicated eariier. A formula in this case can be a variable, a 
mathematical expression, or a numerical value. 

The value of each formula is evaluated upon first encountering 
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the loop. While the values of the variables, if any, used in evaluat- 
ing these formulas can be changed within the loop, the values as- 
signed in the FOR statement remain as they were initially defined. 
In the last example program the value of I (in line 10) can be 
successfully changed in the program. The loop: 

10 FOR 1=1 TO 10 

i 5 i^i^ i i = I t! 

20 ^3EXT I 

will only be executed once since the value 10 has been reached by 



•rviinQtJr.n rQTiditinn is satisfied. 



NESTING LOOPS 

It is often useful to have one or more loops within a loop. This 
technique is called nesting. Nesting is allowed as long as the field 
of one loop (the numbered fines from the FOR statement to the 
corresponding NEXT statement, inclusive) does not cross the 
field of another loop. A diagram is the best way to illustrate accept- 
able nesting procedures: 



ACCEPTABLE NESTING 
TECHNIQUES 

Two Level Nesting 

r— FOR 
rFOR 

i-NEXT 
rFOR 

Lnext 

L-NEXT 



UNACCEPlAliLii NESTING 
TECHNIQUES 



-FOR 
-FOR 

-NEXT 

■* -ri— '-^T-nn 



Three Level Nesting 
, FOR ~ 



i — rOis. 

rFOR 

^NEXT 
rFOR 

I XTT-!-V'T' 

-NEXT 
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A maximum of eight (8) levels of nesting is permitted. Exceed- 
ing that limit will result in an ILLEGAL FOR NESTING error 

message. 

If the value of the counter variable is originally set equal to the 
terminal value, the loop will execute once, regardless of the STEP 
value. If the starting value is beyond the terminal value, the loop 
will not execute. 

It is also possible to exit from a FOR-NEXT loop without the 
counter variable reaching the termination value. A conditional 
transfer may be used to leave a loop. Control may only transfer 
into a loop which had been left earlier without being completed, 
ensuring that the termination and STEP values are assigned. 

TRANSFER OF CONTROL 

Certain statements can cause the execution of a program to jump 
to a different line either unconditionally or depending upon some 
condition within the program. Looping is one method of jumping 
to a designated point until a condition is met. The following com- 
niands give the programmer additional capabilities in this area. 

Unconditional Transfer 

The GOTO statement is an unconditional command telling the 
computer to either jump ahead or back in the program. For ex- 
ample: 

100 GOTO 50 



or 



24 GOTO 78 

The GOTO statement is of the form: 

(line number) GOTO (line number) 

When the logic of the program reaches the GOTO statement, the 
statement (s) immediately following it will not be executed, but the 
statements beginning with the line number indicated are performed. 
The program on the following page never ends; it does a READ, 
prints something and attemps to do this over and over until it runs 
out of data, which is sometimes an acceptable, though not ad- 
visable, way to end a program: 
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10 REM - PROGRAM ENDING WITH ERROR 

11 REM - MESSAGE WHEN OUT OF DATA 
20 READ X 

25 PRINT "X="X^"Xt2="Xt2 

30 GOTO 20 

35 DATA 1,5,10>15,20,25 

40 END 

RUN 



x= 


1 


xte= 


t 


x= 


5 


Xt2 = 


25 


x= 


10 


Xt2 = 


100 


x= 


15 


Xt2 = 


225 


x= 


20 






x= 


25 


xte= 


625 



OUT OF DATA IN LINE 20 



READY 



Conditional Transfer 

If a program requires that two values be compared at some point, 
logic may aireci us lo amereni prus;cuuics ueijcuumg «jh mw wm- 
parison. In computing we logically test values to see whether they 
are equal, greater, or less than another value, or a possible com- 
bination of the three. 

T-r, r^-^Ac^-r- f^ ,^/>»>-it->oi-£s ^rcl1^^Ac wp' nci=> 51 oxcwvn of mathematical 
symbols not discussed earlier. These symbols are as follows: 



BASIC 


Math 


Symbol 


Symbol 


< 


< 


<= 


^ 


> 


> 


>= 


^ 



<> 



BASIC 

Example Meaning 

A = B A is equal to B 

A < B A is less than B 

A <= B A is less than or equal to B 

A !> S A iS greater tuan a 

A >= B A is greater than or equal 

Iob'^ 

A <> B A is not equal to B 






The IF-THEN and IF-GOTO statements both allow the pro- 
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grammer to test the relationship between two formulas (variables, 
numbers, or expressions). Providing the relationship we have de- 
scribed in the IF statement is true at that point, control will trans- 
fer to the line number indicated. The statements are of the form: 

(line number) IF (formula) relation (formula) 

I GOTO J Oi^^^^^^^^^ 

The use of the word THEN or GOTO is the programmer's choice. 
For example: 

10 IF A=5 GOTO 70 

causes transfer from line 10 to line 70 if A is equal to 5. If A is 
not equal to 5, control passes to the next line of the program follow- 
ing line 10. 

SUBROUTINES 

When particular mathematical expressions are evaluated several 
times throughout a program, the DEF statement enables the user 
to write that expression only once. The technique of looping allows 
the program to do a sequence of instructions a specified number 
of times. If the program should require that a sequence of instruc- 
tions be executed several times in the course of the program, this 
too is possible. A subroutine is a section of code performing some 
operation that is required at more than one point in the program. 
Sometimes a complicated I/O operation for a volume of data, a 
mathematical evaluation which is too complex for a user defined 
function, or any number of other processes may be best performed 
in a subroutine. 
GOSUB Statement 

Subroutines are placed physically at the end of a program, 
usually before DATA statements, if any, and always before the 
END statement. The program begins execution and continue^s 
until it encounters a GOSUB statement of the form: 

(line number) GOSUB (line number) 
where the number after GOSUB is the first line number of the 
subroutine. Control then transfers to that line in the subroutine. 
For example : 

50 GOSUB 200 
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JVC J. u JVL-^ suiicllicui 

Having reached line 50, as shown on the previous page, control 
transfers to line 200; the subroutine is processed until the computer 
encounters a RETURN statement of the form: 

(line number) RETURN 
which causes control to return to the line following the GOSUB 
statement. Before transferring to the subroutine, BASIC internally 
records the next line number to be processed after the GOSUB 
statement; the RETURN statement is a signal to transfer control 
to this line. In this way, no matter how many subroutines or how 
many times they are called, BASIC always knows where to go 
neXi. AiiC iOiiOwiiig program uemonstrates a simpic suuroutmc; 



1. REM - THIS PROGRAM ILLUSTRATES GOSUB AND RETURN 
.10 DEF FNACX)= ABS(IMTCX)) 
20 INPUT A^B^rC 
30 GOSUB 100 
40 LET A=FNACA) 
50 LET 3=FNA(B) 
60 LET C=FNACC) 
70 PRINT 
80 COSUB 100 
90 STOP 

100 REM - THIS SUBROUTINE PRINTS OUT THE SOLUTIONS 
110 REM - OF THE EQUATION: AXtg + BX + C = 
120 PRINT "THE EQUATION IS " A "*Xf2 + " B "*X ' + " ( 
130 LET D= B*B - 4*A*C 
140 IF D<>0 THEN 170 

150 PRINT "ONLY ONE SOLUTION... X =" -B/(2*A) 
1 60 RETURN 

180 PRINT "TWO SOLUTIONS... X ="; 

185 PRINT (-B+SQR(D) )/(2*A) "AND X =" ( -B-SQR( D) )/ (2*A ) 

200 PRINT "IMAGINARY SOLUTIONS... X = ("; 

205 PRINT -B/(2*A) " ," SQRC -D)/ C 2*A ) "> AND ("; 

207 PRINT -B/(2*A) "^" -SQRC -D)/C2*A ) ")" 

210 RETURN 

900 END 

RUN 

? 1 * .5>-.5 

THE EQUATION IS 1 *Xt2 ■^ . 5 *X * -.5 
TWO SOLUTIONS... X = .5 AND X =-1 

THE EQUATION IS 1 *Xt2 + *X + 1 

IMAGINARY SOLUTIONS... X = ( , 1 ) AND (0,-1 ) 



READY 






Lines 100 through 210 constitute the subroutine. The subroutine 
is executed from line 30 and again from line 80. When control re- 
turns to line 90 the program encounters the STOP statement and 
terminates execution. Note that even though the program logically 
ends with a STOP, the END command must still be present. 

For another detailed example of a subroutine, see Figure 12-2. 

STOP and END Statements 

The STOP statement is used synonymously with the END state- 
ment to terminate execution, but the END statement must be the 
last statement of the entire program. STOP may occur several 
times throughout the program. No BASIC program will run with- 
out an END statement of the form: 

(hne number) END 

The format of the STOP statement is simply: 

(line number) STOP 

STOP is equivalent to a GOTO nn, where nn is the line number 
of the END statement. 

Nesting Subroutines 

More than one subroutine can be used in ^ single program in 
which case they can be placed one after another at the end of the 
program (in line number sequence). A useful practice is to as- 
sign distinctive line numbers to subroutines, for example if you 
have numbered the main program with hne numbers up to 199, 
you could use 200 and 300 as the first numbers of two subroutines. 

Subroutines can also be nested, in terms of one subroutine call- 
ing another subroutine. If the execution of a subroutine encounters 
a RETURN statement it will return control to the line following 
the GOSUB which called that subroutine; therefore, a subroutine 
can call another subroutine, even itself. Subroutines can be entered 
at any point and have more than one RETURN statement where 
certain conditions will cause control to reach any one RETURN 
statement. It is possible to transfer to the beginning or any part 
of a subroutine; multiple entry points and RETURNS make a sub- 
routine more versatile. 

The maximum level of GOSUB nesting is about forty (40) 
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levels, which should prove more than adequate for all normal 
uses. Exceeding this limit will result in the message: 

GOSUB--RETURM ERROR 

ERRORS AND HOW TO MAKE CORRECTIONS 

Single Letter Corrections 

Nobody being perfect, we ail make typing errors if not logical 
errors. The first is by far the easier to correct. If you notice an 
error immediately as you type it, for example: 

10 L EB 

instead of LET as you meant to begin the line, hit the RUBOUT 
key or SHIFT/O (back arrow) once for every character you wish 
to remove, including spaces. This will result in the printing (by 
BASIC) of a back arrow to show that the rubout has been accom- 
plished. Make the correction and continue typing as shown below. 

10' LEB-T A=:10*B 

if that was the intended line. The computer does not even see the 
mistake; it is erased, except on the console as you typed it. The 
typed line enters the computer only when you hit the RETURN 
key. Before that time you can correct errors with the RUBOUT 
key or SHIFT/O. If you desire a neat, corrected listing at the 
end of your work, that is possible too. More on that later, 

20 DEN F — -F F0JA(X,-Y)=Xt2 + 3*Y 

is the same as: 

20 DEF FNA(X,Y)=XT2-i-3*Y 

to the computer. Notice you erase spaces, as well as printing 
characters. 

Erasing a Line 

If at any time you have typed a line and not yet hit the RE- 
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TURN key, the line can be erased by striking the ALTMODE 
(ESCAPE on some machines) key. BASIC will echo back: 



S DELETED 



at the end of the line to indicate that the line has been removed. 
You can continue typing on that line as though it were the start 
of a new line or hit the RETURN key to start a fresh line. 

Once you have hit the RETURN key and have entered a line 
into the computer it can still be corrected by simply typing the 
line number and proceeding to retype the line correctly. The old 
line is automatically deleted as you type the line again, even if it 
was longer than the new line. 

You can delete an entire line by typing the line number and 
hitting the RETURN key. This removes the entire line and line 
number from your program. 

NOTE 

Typing a line number followed by back ar- 
rows does not remove that number from the . 
line it identifies. If you accidentally type the 
line number of a previous line you do not 
want erased, the RUBOUT key will remove 
the unwanted hne number, leaving the orig- 
inal line intact. For example: 

10 LET A=4 
10--20 LET B=A+7 

will leave line 10 as it is and allow you to 
type line 20. 

Following an attempt to run a program you may receive an 
error message. Most errors can be corrected by typing the Mne 
number, typing the line over again with the correction, and hitting 
RETURN. The program is then ready to be run again. You can 
make "as many changes or corrections between runs as you wish. 
(For a more advanced technique in program editing, see the sec- 
tion on Advanced BASIC.) 

Erasing a Program in Core 

Assuming you have written a program on-line in BASIC, have 
completed it and now wish to run another program in BASIC, but 
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do not wish to save the old program, when BASIC types READY, 
answer: 

SCRATCH 
or SCR 

The SCRATCH command will erase the old program and leave 
a fresh, blank area in which you can work. Only the abbreviation 

•J^s^ j^j ii«^s^«^ood±j. jLjr\oi.\^ wm agaiii icpiy xslHAuY, ana VOU Dro- 

ceed from this point. The previous program, name is maintained 
for the cleared area. You can, alternatively, reply to READY with 
NEW, if you wish to create a new oroeram. or OLD. if vou wish 
to recall a saved program for further work. SCRATCH is much 
faster than NEW or OLD in clearing core. 

If, after BASIC types READY, you merely begin typing a new 
program without clearing core, BASIC will retain the name of the 
previous program and in effect you will write over that program 
as though you were changing each single line. However, if you do 
not remove or type over all of the previous line numbers you will 
discover the unchanged lines appearing in the new program as well. 
To avoid this, telling BASIC to SCRATCH the old program and 
create a new program gives you a blank area on which to write. 

Stopping a Run 

If your program begins to print what you know will be a long 
list of unwanted output for one reason or another, you can stop a 
running program by depressing the CTRL (control) key and 
hitting the C key. CTRL/C will cause t C to be printed on the 
— „o.vJxN^ ^t*^^i, tiii^ vViii oLvjp t^ACuuLiOn, leLUiiiiiig yuu to eoit moae 
(BASIC prints READY). You can make changes, save the pro- 
gram, or whatever you wish. 

NOTE 

The up arrow ( t ) in the command fBS 
or tC is not to be confused with the up 
arrow used to express exponentiation. The 
t indicated on the console keyboard is for 
raising a number to a power. The t C, for 
example, is a short way of writing CTRL/C 
where the CTRL key is depressed while the 
C is struck. 
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RUNNING A BASIC PROGRAM 
LOGIN Procedure 

Before you attempt to use TSS/8, someone in charge of the 
computer will issue you an account number and a password. When 
you sit down at the Teletype console turn the LINE-OFF-LOCAL 
knob to LINE. You should see a period on the left margin of the 
paper, if not, hit the RETURN key and one will appear. 

In answer to the dot type: 

LOGIN account number password 

Enter the three terms with a single space between them and strike 
the RETURN key. For example: 

•LOGIM 175 DEMO 

None of the characters in the line you typed will be printed at the 
console, in order to preserve the secrecy of these codes. When you 
successfully log onto the system some opening message will likely 
be printed ending with another dot. In reply type: 

R BASIC 

Initial Dialt^e 

This puts you in communication with BASIC which will then 
type out: 

NEW OR OLD-- 

If you are entering a new program you reply NEW, if calling in 
an old program you have saved in a file, reply OLD. To enter the 
command to BASIC, you must strike the RETURN key. BASIC 
will then reply: 

MEW PROGRAM MAME-- 
Or OLD PROGRAM MAME-- 

as the case may be. You will type in any six-or-less character 
identifier as your program name. An old program's name must be 
typed correctly, so it is a good idea to choose an appropriate, easily 
remembered name. An example of how to call a program which 
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you had previously saved would look as foUows: 

OLD PROGRAM NAME--PRIME 

where PRIME is the name of the program. 

Programs (called files when they have been saved) may be 
loaded from another user's account, file protect permitting. ^ When 

T3 A CT/^ ogXtc fr^f fno r\}ri T^i-onri-om t-tomf^ \ir\^i tY%0\7 'rt=^T\\\r' 

OLD PROGRAM NfAME--PRIME 120 

where PRIME is the name of a program and 1 20 is the file account 
number under which PRIME is stored. 

If a file exists for use of a large number of programmers it will 
likely be placed in the System Program Library and may be called 
by typing the name of the program immediately followed by an 
asterisk: 

OLD PROGRAM M.AME — PRIME* 

will call PRIME from the System Program Library. 

Following the program name supplied by the user, BASIC then 
types READY. 

At this point you may begin to type in a new program hitting 
RETURN after each line, or change or run an old program in 
accordance with the conventions already established. 

RUN Command 

When your program is ready to be run (be sure there is an END 
statement), type RUN, press the RETURN key, and the program 
will attempt to execute. If there is some error in the way you wrote 
your BASIC code, an error message will be printed, following 
which you may correct the errors one line at a time. Then type the 
RUN command again. If the program executes correctly you will 

nhtctin wfifi tp-w^r r»rir«ff»H r>ntr»iit VO" r<»nnf>ctpfl %^fipn the PND 

2 When you SAVE a file on disk the protection code of that program allows 
anyone knowin"' the account number to access the Tiro$>ram. For additional 
information on file protection codeS; see the TSS/8 User's Guide (DEC- 
T8-MRFB-D). 
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statement is reached, BASIC stops execution and again types 
READY. 

Editing Phase 

To simplify matters, we can think of BASIC as having two 
phases, a run phase and an editing phase. The run phase is the 
time between when you type RUN and when BASIC types 
READY; this is the time during which BASIC is compiling and ex- 
ecuting your program. Once BASIC has printed READY, it is able 
to accept commands directly from your Teletype; during this editing 
phase you can prepare your program and can direct BASIC to per- 
form a variety of services such as the SCRATCH command. (You 
can force an entry to the editing phase with a CTRL/C. ) The com- 
mands used in the editing phase can all be abbreviated to three 
letters, some have arguments, others do not, as explained below. 

SAVE COMMAND 

When you have completed working on a program, you may save 
it on disk to call again in the future. To do this type: 

SAVE 
or SAV 

This would use the same name you typed in response to the ques- 
tion NEW PROGRAM NAME- (If you think you might forget 
it, write the name in a REMARK statement at the beginning of the 
prograni. ) 

It is also possible to say: 

SAVE name 
or SAV name 

where name is not the original name you gave as a reply to NEW 
PROGRAM NAME--, however, the name you tell BASIC to 
save is the name you must give to retrieve the program in response 
to a later query of OLD PROGRAM NAME- 
NOTE 
Spaces do have significance in program 
names (i.e., SAVE TIP TOP will be saved 
as TIP). In general, then, spaces are de- 
limiters for all editing phase commands, 
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REPLACE COMMAND 

If you have called an old program and made some changes in it, 
you can then return the corrected program to the disk under its old 
name using the REPLACE command. This command deletes the 
old program of that name as it enters the new one. 

In response to READY, type: 



or, alternatively: 



REPLACE 
or REP 



REPLACE name 
or REP name 



which causes the program presently being worked on to replace the 
old copy of the same program on the disk. If a program name is 
indicated, that name is used as the file name. 

UNSAVE COMMAND 

If you wish to delete a program from your disk storage area, 

type: 

' UNSAVE name 
or UNS name 

The program with the name specified will be deleted from your 
permanent file. This is done when you no longer plan to use that 
program. In general, programs which are not going to be run fre- 
quently are best stored on paper tape, reserving disk storage for 

xnv^xi^ cn^tivv^ jjiogiaiiia. At IS pusaiuic tu uciCtc acvcidi iiics WlLfl a. 

single UNSAVE command separating the program names with 
commas. 

LIST COMMAND 

Once your program works you may discover you have several 
feet of Teletype paper filled with corrections and other gibberish. 
To obtain a clean listing of your program, type LIST or LIS fol- 
lowed by the RETURN key. The whole program will be printed. 
You can then tell the computer to RUTS and your output will 
follow. 

For debugging purposes it is sometimes useful to list part of your 
program. LIST or LIS followed by one line number or two line 
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numbers separated by a comma will result in BASIC printing either 
that single line or the lines between and including the two numbers 
given. 

DELETE COMMAND 

DELETE or DEL followed by two line numbers separated by a 
comma will cause all lines between and including the two given to 
be deleted from the program. If only one line number is given, 
that line will be deleted. For example: 

DEL 10^20 

causes all lines between 10 and 20 inclusive to be deleted. 

NEW AND OLD COMMANDS 

If you have completed working with one program and have 
saved that program for future use, you may wish to work on an- 
other BASIC program or leave the terminal. If you wish to call an 
old program, type OLD. To indicate that you wish to begin a 
new program, type NEW. In either case BASIC will request a pro- 
gram name and, following your reply, type READY. These com- 
mands may be used at any time, not only in direct response to the 
question BASIC asks of NEW or OLD PROGRAM NAME--. 

CATALOG COMMAND 

If you type CAT or CATALOG followed by the RETURN key, 
a listing of all program names in your disk file will be printed by 
BASIC. For example: 



CATALOG 

FOOTBL.BAC 
PRIME .BAS 
FTBALL.BAS 
FOO .BAS 
PRIMO .BAG 



READY 

The program names have appended to them the terms .BAC and 
•BAS which are explained in the section on Advanced BASIC. 
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BYE COMMAND 

When you are ready to leave the Teletype, type BYE and hit 
RETURN, this will return control to TSS/8 Monitor which prints 
a dot at the left margin. Then type LOGOUT and hit RETURN. 
Wait until the computer has finished its concluding message before 
turning the LINE-OFF-LOCAL knob to OFF. 

ALTMODE KEY 

Striking the ALTMODE key (which is non-printing and non- 
spacing) will cause any of the preceding commands (DELETE, 
LIST, SAVE, etc.) to be erased. ALTMODE must be struck be- 
luic uic jxnujj^iN Key wnicn eniers tne command mto the com- 
puter. If you do change your mind about a command, you can 
alter it as shown below: 

SAVE FOOS DELETED 



BASIC replies $ DELETED to show that the command has been 
erased, you may then retype the line. 

Panching a Paper Tape 

It may be useful in many cases to have a copy of a program you 
have written in BASIC stored on paper tape. You can create such 
a copy quite easily. Once you have completed your program to the 
pomt that you wish to copy it, punch a listing of it through BASIC. 
The steps involved are: 



L Type TAPE followed by hitting RETURN. Any characters 
you type now will not echo on the console or on your tape. 

2. Punch the ON button on the tape punch. 

3. ■ Type LIST followed by the RETURN key. This causes the 

program to be listed on paper tape and on the console. 

4. Punch the OFF button on the tape punch. 

Using LIST when in TAPE mode will result in the following: 

1 The Vi/rtrf\ T T^T «;i11 r>/-»f i»/^1-»/-> KTf-x 1ci«^;»^~ „„„-^__ -~-_ ;_.i- J 

before line numbers as in a normal LIST. 
2. Blank tape is "Drinted" before and after the nrnomm 

You will notice that when you tear off the tape from the punch 
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there will be an arrow head on the tape, this shows the direction in 
which the tape is later to be inserted into the machine. 



TAIL 





ARROWHEAD 

Figure 12-4 Paper Tape Diagram 

Once you have finished punching your program you will wish to 
return to regular operating mode on the computer. During TAPE 
mode no characters you type will be echoed, RUBOUTs are 
ignored, as is blank tape. Typing KEY followed by the RETURN 
key will bring you back to normal operating mode. You may then 
continue working on that program, call another program, or log 
out. 

A paper tape can be duplicated or copies made by positioning 
the tape in the reader depress the ON button, turn the LINE-OFF- 
LOCAL knob to LOCAL, and turn the reader control switch to 
START. Tape will be reproduced as it is. 

Reading and Listing a Paper Tape 

To read in a paper tape from the low speed reader on the Tele- 
type, first create a new program name in BASIC and proceed as 
follows: 

1 . Position paper tape in the reader head: 

a. Raise retainer cover, 

b. Set reader control to FREE, 

c. Position paper tape with feed holes over the sprocket 
wheel and the arrow (cut) pointing outward from the 
console. 

2. Type TAPE, hit the RETURN key. 
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3. Set reader control switch to START until listing has been 
completed. Reader will not stop at blank tape. You must turn 
the reader control switch to FREE. 

4. In order to get back into regular operating mode where the 
characters you type will be echoed at the console, type KEY 
and hit the RETURN key. 

5. BASIC will type READY, you can then ask BASIC to LIST 
and RUN your program. 

Transferring a File to Paper Tape or DECtape from Disk 

It is not in the scope of this manual to describe the transfer of 
BASIC programs from, disk to paper tape or DECtape. If you wish 
to use these facilities, refer to writeur>c on ptp rPf^r;T-.ii«r-oi Ttifpr. 
change Processor) and COPY (both found in the TSS/8 User's 
Guide), 

IMPLEMENTATION NOTES 

The TSS/8 BASIC language is compatible with Dartmouth 
BASIC except as noted below: 

1. There are no matrix operations. 

2. There are no character string instructions. 

3. The ON statement has not been implemented. 

4. BASIC has no features which allow reading or writing data 
files on the disk. (Although programs may be saved on the 
disk for future use.) 

5. AU array (subscripted) variables must appear in a DIM 
statement. 

6. User defined functions in DEF statements need not begin 
with the letters FN as in Dartmouth BASIC. 

7. User defined functions are restricted to one line. 

8. Maximum size of a BASIC program can be said to be 
roughly 350 lines. The exact size of a program that a user 
can run depends upon several factors: the number and size 
of arrays, number of nested loops and subroutines, number of 
variables, and user defined functions. A program using an 

lir>n«lip11v 1arpi=> nnmKp-r t^f rtntr ^f +V.o<-.o JF««+, ...:n ^C ^, 

^ _£!**¥ ^^*gv/ lii^iiii^Ci wi ciiiy KJL (.iiQuQ KxCtOis Will, Oi i;0!iiSe, 

have less room in which to run. 

ADVANCED BASIC 

This section deals with additional features of BASIC which, 
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once you have learned the BASIC language, will make program- 
ming somewhat easier. 

EDIT Command 

Frequently it is only necessary to correct several characters in a 
line. Rather than retype the entire line, which may be a complex 
formula or output format, there is a command which allows you to 
access a single line and search for the character you wish to change. 
The form of the EDIT command is as follows: 

EDI line number 
[character] 

Notice that the EDIT command may be abbreviated to three letters. 
It is then followed by the line number of the statement to be 
changed. Enter the command by striking the RETURN key. At 
this point BASIC types [ and waits for you to type a search char- 
acter after which BASIC types ]. The character you give will be 
some character which already exists on the line (one of the legal 
BASIC characters, ANSCI 240 through 336 inclusive on the 
ANSCII table in Appendix B2). After the search character is typed, 
Bx^SIC prints out the contents of that line until the search character 
is printed. At this point printing stops, and the user has the follow- 
ing options: 

1. Type in new characters which are inserted following the 
ones already printed. 

2. Type a Form Feed (CTRL/L); this will cause the search 
to proceed to the next occurrance, if any, of the search char- 
acter. 

3. Type a BELL (CTRL/G); this allows the user to change 
the search character. BASIC types back another [ and the 
user can specify a new search character. 

4. Use the RUBOUT (or SHIFT/Q) key to delete one char- 
acter to the left each time RUBOUT is depressed. RUBOUT 
echoes as <-. 

5. Type the RETURN key to terminate editing of the line at 
that point, removing any text to the right. 

6. Type the ALTMODE key to delete all the characters to the 
left except the line number. 

7. Type the LINE FEED key to terminate editing of the line, 
saving the remaining characters. 
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On completion of the EDIT operation, BASIC types READY. 
Note that line numbers cannot be changed using EDIT, i.e., you 
cannot search for a line number digit. Any illegal characters will be 
ignored. 

The following example demonstrates the EDIT command where 
the incorrect line reads as follows: 

50 PRINT "P 1=3 • 141 46 ABOU*:" 

To edit the line would result in the following output on the Tele- 



EDIT 60 

[6360 PRIMT "PI = 3. 14146--59C*] ABOU**-T 

READY 
LIST 60 

60 PRIMT "PI =3. 141 59 ABOUT!" 



The onerations involved in editint' the line were as follows: First 
the number 6 was indicated as the search character. BASIC ig- 
nores the line number, but will print it. When the 6 was printed, 
RUBOUT was struck twice to remove the two incorrect digits and 
J 9 inserted m their place. CTRL/BELL is struck resultmg in 
BASIC accepting another search chaiacier. BASIC then prints 
to the search character * which is removed with a RUBOUT and 

and save the remaining characters. 



'& 



v' 



COMPILE Command 

When a program is debugged and working to your satisfaction, 
it is faster to be able to directly RUN a program without waiting 
for BASIC to recompile it each time. To enable you to store a 

Oiiipiiwu piUk,iaiJii LiiC \^KJXvix ■ » -■ - \^\jiiiiiLaii\j. xiab uCCii auuCu. tO 

BASIC. The form of the command is as follows: 

COMPILE name 
or COM name 

The program in core will be compiled and saved in the specified 
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file. COMPILE will not overwrite an existing file (it is like SAVE 
in this respect) ; if the name is in use the error message: 



DUPLICATE FILE MAME 



will be printed, and the program will not be compiled. 

The compiled program may then be loaded and run in the usual 
manner. For example: 

MEW OR OLD--OLD 

OLD PROGRAM MAME--FTBALL* 

READY 

COMPILE FOOTBL 

READY 

OLD 

OLD PROGRAM MAME- -FOOTBL 

READY 
RUN 

In the example above, the programmer told BASIC to load a 
System Library Program file named FTBALL into core (the * 
after FTBALL indicates the System Library files). The program- 
mer told BASIC to compUe the program now in core and store 
the compiled program in his personal file with the name FOOTBL. 
Once BASIC has done this it replies READY. The programmer 
indicates that he wishes to call an old program into core, this old 
program is the already compiled version of the original program 
which can be made to execute by giving BASIC the RUN com- 
mand. 

Compiled BASIC files may not be listed or changed in any way; 
therefore a program should not be saved as a compiled file until 
it has been completely debugged. If you attempt to list or change 
a compiled file the error message: 

EXECUTE ONLY FILE 

will be printed. 

FILE EXTENSIONS 

In order for the user to easily tell the difference between com- 
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piled, uncompiled, and temporary files within your storage area on 
disk, the following conventions are followed and will help you tell 
the diiference when you run the CATALOG command. 

1. SAVE and REPLACE commands will always write out a 
file with the extension .BAS appended to the file name given 
by the user. 

2. COMPILE will always write out a file with the extension 

.ur-x.y^ lO tlxC lllC IICUIIC. 

CATALOG will only Ust those files which have a .BAS or a .BAC 
extension. The two BASIC temporary files assigned to each user 
will be given the extension .TMP. 



Explanation 

Assign the value of the formula f 
to the variable v. 

Variables vl through vn are as- 
signed the value of the correspond- 
ing numbers in the DATA string. 

Numbers nl through nn are to be 
associated with corresponding vari- 
ables in a READ statement. 

Print out the values of the spec- 
ified arguments, which may be 
variables, text, or format control 
characters (, or ;). 

Transfer control to line n and 
continue execution from there. 

If the relationship r between the 
formulas fl and f2 is true then 
transfer control to line n; if not, 
continue in regular sequence. 

Same as IF-THEN 



SUMMARY 


OF BASIC STA 


Command 


Example of Form 


LET 


LET v=f 


READ 


READ vl, v2, 




. . . , vn 


DATA 


DATA nl, n2. 




. . . , nn 


PRINT 


PRINT al, a2. 




. . . , an 



GOTO 
IF-THEN 

IF-GOTO 
FOR-TO 



GOTO n 



IF fl r f2 
THEN n 



IF f 1 r f2 
GOTO n 

FOR v=fl TO 
f2 STEP f3 



Used to implem.ent loops: The 
variable v is set eaual to the 



f I 



, J. \JXM.X 



loop cycle is completed following 
which v is incremented after each 
cycic u'y ij until its vaiue iS greater 

is omitted, f3 is assumed to be -j-1. 
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SUMMARY OF BASIC STATEMENTS (CONT.) 



Command 

NEXT 



DIM 



Example of Form 

NEXT V 



DIM v(s) 
DIM v(sl, s2) 



GOSUB 



GOSUB n 



RETURN 



RETURN 



RANDOMIZE RANDOMIZE 
RANDOM 



INPUT 



INPUT vl, v2, 



vn 



REM 



REM 



RESTORE RESTORE 



DEE 



W= 



DEF FNB 

f(x) 
DEF FNB(x, y )= 

f(x, y ) 



Explanation 

Used to tell the computer to return 
to the FOR statement a*id execute 
the loop again until v is greater 
than or equal to f2. 

Enables the user to create a table 
or array with the specified number 
of elements where v is the vari- 
able name and s is the maximum 
subscript value. Any number of 
arrays can be dimensioned in a 
single DIM statement. 

Allows the user to enter a sub- 
routine at several points in the 
program. Control transfers to line 
n. 

Must be at the end of each sub- 
routine to enable control to be 
transferred to the statement fol- 
lowing the last GOSUB. 

Enables the user to obtain an un- 
reproducible random number se- 
quence in a program using the 
RND function. 

Causes typeout of a ? to the user 
waits for the user to supply the 
values of the variables vl through 
vn. 

When typed as the first three let- 
ters of a line allows typing of re- 
marks within the program. 

Sets pointer back to the beginning 
of the string of DATA values. 

The user may define his own func- 
tions to be called within his pro- 
gram by putting a DEF statement 
at the beginning of a program. The 
function name begins with FN and 
must have three letters. The func- 
tion is then equated to a formula 
f(x) which must be only one line 
long. Multiple variable function 
definitions are allowed. 
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SUMMARY OF BASIC STATEMENTS (CONT.) 

Command 

STOP 

END 

Functions 

In addition to the usual arithmetic operations of addition (+), 
subtraction (-), multiplication (*), division (/), and exponentia- 



Example of Form 

STOP 

END 



Explanation 

Equivalent to transferring control 
to the END statement. 

Last statement in every program, 
signals completion of the program. 



provides the following function capabilities; 

Sine of X 

Cosine of X 

Tangent of X 

Arctangent of X 

e^ (e=2.712818) 

Log of X (natural logarithm) 

Absolute value of X (jXj) 

Square root of X ( /X) 

Greatest integer in X 

Random number between and 1 is a re- 

peatable sequence value of X ignored. 

Assign value of +1 if X is positive, if 0, 

or — 1 if negative. 

Controls the position of the printing head on 

the TeletvDe. 

NOTE: Trig functions use radians. 

SUMMARY OF BASIC EDIT AND CONTROL COMMANDS 

Several commands for editing BASIC programs and for con- 
trolling their execution enable you to: delete lines, list your pro- 
gram, save programs on disk, delete or replace old programs on 
disk with new programs, call in programs from disk, etc. The com- 
mands may be given at any time during the editing phase, and are 
not preceded by a line number. 



tion ( t ) ; BASIC 

SIN(X) 

COS(X) 

TAN(X) 

ATN(X) 

EXP(X) 

LOG(X) 

ABS(X) 

SQR(X) 

INT(X) 

RND(X) 

SGN(X) 

TAB(X) 



Command 



CATALOG 



Abbreviation 



CAT 



Action 

Causes an exist to TSS/8 Monitor, 
user has left BASIC. 

Returns a list of programs which 
are on file under your account 
number. 
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Command 


Abbreviation 


COMPILE 


COM name 


DELETE 


DEL n 




n 




DEL n, m 


EDIT 


EDIn 




[<^] 


KEY 


KEY 


LIST 


LIS 




LIS n 




LIS n, m 


NEW 


NEW 


OLD 


OLD 



REPLACE 



REP 

REP name 



RUN 


RUN 


SAVE 


SAV 




SAV name 


SCRATCH 


SCR 


TAPE 


TAP 


UNSAVE 


UNS name 




UNS name, 


CTRL/C 


CTRL/C 



Action 

BASIC compiles the program in 
core and stores it on disk with the 
given name. 

Delete the line with line number 

n, an alternate form is to type the 

line number and the RETURN 

key. 

Delete the lines with line numbers 

n through m inclusive 

Allows the user to search line n 
for the character c. 

Return to KEY (normal) mode. 
(See TAPE) 

List the entire program in core. 

List line n. 

List lines n through m inclusive. 

BASIC will clear core and ask for 
the new program name. 

BASIC will clear core, ask for the 
old program name, and retrieve 
the program from disk, leaving it 
in core. 

Replace the old file on disk with 
the updated version of the same 
name currently in core. If a name 
is not indicated under which 
BASIC is to store the new version, 
the old name is retained. 

Compile and run the program cur- 
rently in core. 

Save the contents of user core as 
the file whose name is indicated. 

Erase the current program from 
core. 

Enter TAPE mode, characters 
typed will not echo on the console 
paper. 

Delete the named program(s) 
from the disk. 

Stops a running program, types 
fC and returns to the editing 
phase. BASIC replies READY. 
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SUMMARY OF BASIC ERROR MESSAGES 

The following error messages may be printed by BASIC during 
the editing phase : 



Message 

WHAT? 

BAD FILE NAME 
CAN'T DELETE: name 
DUPLICATE FILE NAME. 

ILLEGAL LINE NUMBER 



CAN'T FIND "name" 
CANT FIND "name" 

FOR USER n 
CAN'T FIND "name" 

IN SYSTEM LIBRARY 

C VCr^T TTC OVT V IITTT C 



Explanation 

The editor cannot understand the 
command just given. 

An iliegai character was put in 
the file name. 

UNSAVE cannot " delete the file 
with the name given, 

BASIC cannot SAVE over an 
existing file, use a different name, 
or use the REPLACE command. 

Line number vi'as outside range of 
1 to 2046. 

The file name given following 
OLD PROGRAM NAME— can- 
not be opened. Either it does not 
exist or it is read protected against 
this user, as indicated. 



Aftaryr^t try T TCT , 

BASIC compiled file. 






During input to the editor or when executing an INPUT com- 
mand the following messages may be printed in response to input: 



Message 

LINE TOO LONG 



$ DELETED 



(bell-bell) 



jiiiXpianatioii 

The line just typed exceeded the 
available core buffer, retype the 
line. 

In response to an ALTMODE 
character the line has been de- 
leted. Retype the line. 

Two bells mean that the previous 
character was illegal, it is auto- 
matically deleted. 

Back arrow is "rinted an^' time a 
RUBOLTT or SHIFT/0 is used, 
the previous character is deleted. 
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The following error messages may be typed out by BASIC follow- 
ing a RUN command: 



Message 

ARRAY USED WITHOUT DIM 
STATEMENT IN LINE n 

DEF STATEMENT MISSING 



DIMENSION TOO LARGE IN 
LINEn 

FOR WITHOUT NEXT 



GOSUB— RETURN ERROR IN 
LINE n 



ILLEGAL CHARACTER IN 
LINE n 

ILLEGAL CONSTANT IN 
LINEn 

ILLEGAL FOR NESTING IN 
LINE n 



ILLEGAL FORMAT IN 
LINE n 

ILLEGAL FORMULA IN 
LINE n 

ILLEGAL INSTRUCTION IN 
LINE n 

ILLEGAL LINE NUMBER IN 
LINE n 

ILLEGAL VARIABLE IN 
LINE n 

IMPROPER DIM STATEMENT 
IN LINEn 



MISUSED TAB IN LINE n 



NEXT WITHOUGH FOR IN 
LINE n 



Explanation 

All arrays must be previously de- 
fined in a DIMENSION statement. 

A function was called which was 
not defined in a DEF statement. 

Self explanatory. 



Unmatched FOR statement in pro- 
gram. 

Either subroutines are nested too 
deeply, or a RETURN was en- 
countered without a previous 
GOSUB. 

Self explanatory. 



Format of a constant in line n is 
not valid. 

FOR-NEXT loops have been 
nested too deeply, or NEXT state- 
ments were encountered before the 
FOR was executed. 

Illegal syntax for BASIC state- 
ment. 

Error in expression syntax. 



Statement in line n was not a legal 
BASIC command. 

Line number n is outside the range 
1 to 2046. 

An array variable was used in line 
n, where it was not permissible. 

Syntax error in DIM statement, or 
an array name that was previously 
dimensioned is reused. 

The TAB function may appear 
only in PRINT statements. 

Self explanatory. 
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Message 

NO END STATEMENT 
OUT OF DATA IN LINE n 

PROGRAM TOO LARGE. 



STACK OVERFLOW IN 
LINE n 



SUBSCRIPT ERROR IN 
LINE n 

UNDEFINED LINE NUMBER, 



Explanation 

Self explanatory. 

Attempt to do a READ past the 
available data. 

Self explanatory. Try reducing ar- 
rays or use fewer variables. 

Expression too complicated. Try 
typing it as two separate state- 
ments. 

Negative subscript was calcuated 
for an array. 

Tried to reference a line which 



The following messages are typed out at execution and are non- 
fatal (i.e., the program continues to execute) : 



Message 

IC IN n 

LN IN n 



Explanation 

Illegal constant in INPUT, retype 
the value. 

An attempt to compute the log- 



CLLLtllLlL 



MORE? 



OV IN n 



PW IN n 



SQ IN n 



TOO MUCH INPUT, 
EXCF.SS inNORFn 



tive number will be used as the 
result. 

Response to INPUT did not con- 
tain the number of values re- 
quested. Respond by supplying the 
additional values. 

Overflow — value is too large for 
BASIC to use, the largest possible 
number will be used instead. 

Attempt to raise a negative num- 
ber to a non-integer power. The 
absolute value raised to the indi- 
cated power will be used instead. 

Attempt to compute the square 
root of a negative number. The 
square root of the absolute value 
will be used instead. 

Response to INPUT contained 
more values than requested. This 
message has no effect on the pro- 
gram. 
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Message 

UN IN n 

/0 IN n 



Explanation 

Underflow — value is too small for 
BASIC to use, zero will be used 
instead. 

Attempt to divide by zero. The 
largest possible number will be 
given as a result. 



The following errors may occur during any BASIC operation: 
Message Explanation 



ABORT 

^BS 



A non-recoverable disk error has 
occurred. BASIC halts. 



DISK FULL 

ILLEGAL OPERATION IN 

LINE n 
SYSTEM ERROR 



SYSTEM I-O ERROR 



There is no room left on the disk; 
delete some files and try again. 
These are failures of BASIC. 
When they occur they should be 
reported via a SOFTWARE 
TROUBLE REPORT. 

TSS/8 disk I/O failure, try again. 
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4K Assemblers 
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INTRODUCTION TO 4K ASSEMBLERS 

This chapter contains a. description of each of the 4K Assem- 
blers: the first and most basic of which is PAL III. After you 
become familiar with the PAL III language (information on which 
is contained in Volume 1 in this set) you may want to consider 
the other two PDP-8 Assemblers: MACRO and 4K PAL-D. 

MACRO is similar to PAL III with the following additional 
features: user defined macros, double precision integers, floating 
point constants, arithmetic and Boolean operators, literals, text 
facilities, and automatic off-page linkage generation. It is recom- 
mended when any of the additional features mentioned are desired, 
and when a large symbol table is not required. 

4K PAL-D is similar to MACRO excluding macros but with a 
larger symbol table. It is used only in the PDP-8/ 1 Disk Monitor" 
System and the PDP-8 Time Sharing System (TSS/8). It also re- 
quires a 4K core memory for operation. 

It is assumed in this chapter that you are familiar with the 
material presented in the first five chapters of Volume 1; the pro- 
gramming language discussed in those chapters is PAL III. Load- 
ing procedures and operating instructions for PAL III can also be 
found in Volume 1 . 

In Appendix A2 there is a summary of the PDP-8 permanent 
symbol tables. These symbols are used in each of the languages 
discussed in this chapter with exceptions as noted. 

Several other System Library Programs are useful in assembly 
language programming. You can use the Symbolic Tape Editor 
to change, correct or create your program at the Teletype. After 
assembly, DDT is useful for debugging and communicating with 
your program. You will find more on these and other useful pro- 
grams in Volume 1 . 
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PAL in PROGRAMMING 

PAL in (an acronym for Program Assembly Language, version 
III) is a two pass Assembler (with an optional third pass) designed 
for the 4K PDP-8 family of computers. Your program, written 
in the PAL 711 source language, is translated by the Assembler 
into a binary tape in two passes through the Assembler. The bi- 
nary tape is loaded by the Binary Loader into the computer for 
execution. 

During the first pass of the assembly, all user symbols are 
defined and placed in the Assembler's symbol table. During the 
second pass, the binary equivalents of the input source language 
are generated and punched. The Assembler's third pass produces 
a printed assembly listing (a fisting of your program's instructions 
with the location, generated binary, and source code side by side 
on each line). 

The Assembler requires a basic PDP-8 family computer with a 
4K core memory, and a Teletype console. The Assembler can use 
either the high-speed reader, the high-speed punch, or both. The 
user can change the Assembler's permanent symbol table to reflect 
his specific machine configuration, as explained under the section 
on Altering the Permanent Symbol Table. 

CHARACTER SET 

Legal Characters 

The following characters are acceptable to PAL III: 

1 . The alphabetic characters: A through Z 

2. The numeric characters: through 9 

3. The special characters: 

a. Printing characters 

+ plus ; semicolon 

- minus $ dollar sign 

, comma . period 

= equal sign / slash 

* asterisk 

b. Nonprinting keyboard characters: 
SPACE 

TAB 
RETURN 
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4. Ignored characters: 
FORM FEED 
blank tape 
RUBOUT 
code 200 
LINE FEED 

lUega! Characters 

All other characters are illegal (except when used in a com- 
ment) and cause the illegal character message: 

IC xxxx AT nnnn 
during pass 1, where xxxx is the octal value of the offendmg 
^iio^o^t^r end nnnp is the value of the current location counter 
where it occurred. Illegal characters are ignored and assembly can 
proceed. The current location counter contains the address in 
which the next word of object code will be assembled. If the illegal 
character occurs in the middle of a symbol, the symbol is termi- 
nated at that point. 

NUMBERS 

Any sequence of digits delimited by punctuation characters 

forms a number. For example: 

1 

35 
4372 
The radix control pseudo-ops, OCTAL and DECIMAL, indi- 
cate to the Assembler the radix (number base) to be used in num- 
ber interpretation. The radix is initially set to octal (base 8) and 
remains octal unless you change it. 

The pseudo-op DECIMAL indicates that all numbers which 
follow are to be interpreted directly as decimal numbers until the 
occurrence of the pseudo-op OCTAL. The pseudo-op OCTAL 
indicates that all numbers which follow are to be interpreted as 
octal until the next occurrence of the pseudo-op DECIMAL. (For 
— „^»^i^«o+i^r, ^f tiio intf^rnal rpnrespptation of oumbers in the 

PDP-8, see Volume 1.) 

FORMAT EFFECTORS 

Form Feed 

The form feed code, if present in a PAL III program, will 
cause the Assembler to output 12 blank lines during the pass 3 
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Assembly listing. This is useful in creating a page by page listing, 
form feed is generated by a SHIFT/L. 

Tabulations 

Tabulations are used in the body of a source program to provide 
a neat readable listing. Tabs separate fields into columns; for 
details see the Symbolic Tape Editor Manual. For example, a line 
written: 

GO^TAD TOTAL/MAIN LOOP " ' 

is much easier to read if tabs are inserted to form: 

gOj tad total /main loop 

Statement Terminators 

Either the semicolon (;) or the RETURN key may be used as a 
statement terminator. The semicolon is considered identical to a 
carriage return/ line feed except that it will not terminate a line. 
For example: 

TAD A /THIS IS A COMMENT; TAD B 

The entire expression between the slash (/) and the carriage return 
is considered a comment. The Assembler ignores the TAD B. 

If, for example, the user wishes to write a sequence of instruc- 
tions to rotate the contents of the accumulator and link six places 
to the right, it might look like: 

RTR 

RTR 
RTR 

The programmer can alternatively place all three instructions on a 
single line by separating them with the special character semicolon 
(;) and terminating the line with a carriage return. The above 
sequence of instructions can then be written: 

rtr;rtr;rtr 

These multi-statement lines are particularly useful when setting 
aside a section of data storage for use during processing. For ex- 
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ample, a 4-word cleared block could be reserved by specifying 
either of the following formats: 

LIST;. 0; (di 0; 

or 

LIST;. 

a 




the form of numbers, symbols, or expressions. Symbols and ex- 
pressions will be explained later. Each of the following lines gener- 
ate one storage word in the object program: 



DATA> 7777 

A + C-B 

S 

123+B2 



a 1 A 1 nivi jsix 1 a 

PAL III source programs are usually prepared on a Teletype, 
with the aid of the Symbolic Tape Editor, as a sequence of state- 
ments. Each statement is written on a single line and is terminated 
by striking the RETURN key. PAL III statements are virtually 
format free; that is, elements of a statement are not placed in 
numbered columns with rigidly controlled spacing between ele- 
ments, as in punched-card oriented assemblers. 

There are four types of elements in a PAL III statement which 
are identified by the order of their appearance in the statem.ent, and 
by the separating (or delimiting) character which follows or pre- 
cedes the element. 

Statements are written in the general form: 

label, instruction operand /comment 

The Assembler interprets and processes these statements, generat- 
ing one or more binary instructions, data words, or performing 
an assembly process. A statement must contam at least one Oi 
these elements and may contain all four types. 
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Labels 

A label is the symbolic name created by the source programmer 
to identify the location of the statement in the program. If present, 
the label is written first in a statement and terminated by a comma. 

Instructions 

An instruction may be one or more of the mnemonic machine 
instructions (see Appendix A2), or a pseudo-operation (pseudo-op) 
which directs assembly processing. The assembly pseudo-ops are 
described later in this chapter. Instructions are terminated with one 
or more spaces (or tabs if an operand follows) or with a semicolon, 
slash, or carriage return. 

Operands 

Operands are usually the octal or symbolic addresses of the data 
to be accessed when an instruction is executed, but they can be any 
expression, or an argument of a pseudo-op. In each case, interpre- 
tation of operands in a statement depends on the statement instruc- 
tion. Operands are terminated by a semicolon, slash, or carriage 
return. 

Comments 

Following a slash mark the programmer may add notes to a 
statement. Such comments do not affect assembly processing or 
program execution, but are useful in the program listing for later 
analysis or debugging. The Assembler ignores everything from 
the slash to the next carriage return. (For an example see the 
section on Statement Terminators, preceding.) 

It is possible to have nothing but a carriage return on a line, 
resulting in a space in the final listing. An error message is not 
given. 

CODING PRACTICES 

A neat printout (or program listing, as it is usually called) makes 
subsequent editing, debugging, and interpretation much easier 
than if the coding were laid out in a haphazard fashion. The coding 
practices listed below are in general use, and will result in a read- 
able, orderly listing. 

1 . A title comment begins with a slash at the left hand margin. 

13-11 



L. rseuao-ops may begin at tne ieit margin; often, however, 
they are indented one tab stop to Hne up with the executable 
instructions. 

3. Address labels begin at the left margin. They are separated 
from succeeding fields by a tabulation. 

4. Instructions, whether or not they are preceded by a label 
field, are indented one tab stop. 

5. A comment. is separated from the preceding field by one or 
two tabs (as required) and a slash, unless it occupies the 
whole line, in which case it usually begins with a slash at 
the left margin. 
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SYMBOLS 

A symbol is a string of letters and digits beginning with a letter 
and delimited by a non alphanumeric character. Although a symbol 
may be any length, only the first six characters are considered, and 
any additional characters are ignored; symbols which are identical 
in their first six characters are considered identical. 

Pseudo-ops have fixed meanings, and cannot be redefined by 
the programmer. 

The Assembler has in its permanent symbol table definitions of 
the symbols for all PDP-8 pseudo-op codes, memory reference, 
operate and lOT (Input/Out Transfer) instructions, which may be 
used without prior definition by the user. All other symbols must 
be defined in the source program. For example: 

1. Permanent symbols: 

HLT is a symbolic instruction whose value of 7402 is 

Latvian ypj LUC j-vsaciiiun^i iiwui mc {JCimaiiciiL a^'iii- 

bol table. 

2. User defined symbols: 

A is a user defined symbol. When used as a sym- 

bolic address label, its value is the address of the 
instruction it precedes. This value is assigned by 
the Assembler. The user may assign values to 
symbols by using a direct assignment statement of 
the form A = 1 234 which will be explained later. 

Internal Symbol Representation for PAL III 

Each permanent and user defined symbol occunies four words 
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Word 1 

Word 2 

Word 3 

Word 4 



CI 


C2 


C3 


C4 


C5 


C6 





Octal code or address 



where CI, C2, . . . , C6 represent the first character, second 
character, . . . , sixth character respectively. (Remember, symbols 
consist of from one to six characters.) For a permanent symbol, 
word 4 contains the octal code of the symbol; for a user defined 
symbol, word 4 contains the address of the symbol. For example: 
the permanent symbol TAD is represented as follows: 

Word 1 = 24« X 1 00^ + 01 = 24018 or TA 
Word 2 = 04h X lOOg + 00 = 0400« or D 
Word 3 = 0000 
Word 4 = 1 000 (octal code for TAD) 

The PAL III Assembler distinguishes between pseudo-ops, 
memory reference instruction, other permanent symbols, and user 
defined symbols by their relative position in the symbol table. 

Symbolic Addresses 

A symbol used as a label to specify a symbolic address must 
appear as the first term in a statement and must be immediately 
followed by a comma. When used in this way, a symbol is assigned 
a value equal to the current location counter and is said to be 
defined. 

A defined symbol can be used as an operand, or as a reference 
to an instruction. As we explained in Volume 1, the user sets or 
resets the location counter by typing an asterisk followed by the 
octal absolute address value in which the next program word is 
to be stored. If not used, PAL III begins assigning addresses at 
location 200. 





*300 


TAG:. 


CLA 




JMP A 


B, 





A:, 


DCA B 



/SET LOCATION COUNTER TO 300 
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0300, the symbol B a value of 0302, and the symbol A a value of 
0303. 

If a symbol is defined more than once in this manner, the 
Assembler vv'ill print the duplicate tag diagnostic: 

DT xxxxxx AT nnnn 
where xxxxxx is the symbol, and nnnn is the value of the location 
counter at the second occurrence of the symbol definition. The 



*300 
START., TAD A 

DCA COUNTER 
CONTIN^ JMS LEAVE 

JMP START 
A, -74 
COUNTER^ 
START.. CLA CLL 



The symbol START would have a value of 0300, the symbol 
CONTIN would have a value of 0302, the symbol A would have 
a value of 0304, the symbol COUNTER (considered COUNTE by 
the Assembler) would have a value of 0305. When the Assembler 
processed the next line it would print (during pass 1): 



DT START AT 0306 

Since the first pass of PAL III is used to define all symbols in 
the symbol table, the Assembler will print a diagnostic if, at the 
end of pass 1, there are any symbols remaining undefined. For 
example: 



c,. 



*71 


70 


TAD 




CLA 


CMA 


KLT 




JMP 


Al 



(^ 1 ue uuiiar sign niusi lernunaic 
ail PDP-8 assembly programs.) 
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would produce the undefined address diagnostic: 

UA xxxx AT nnnn 
where xxxxxx is the symbol and nnnn is the location at which it 
was first seen. The entire user's symbol table is printed in alphabeti- 
cal order at the end of pass 1. In the case of the above example, 
this would look as follows: 



A 

UA 

C 


Al 


71 70 

AT 71 73 

7174 


•■ 




The following are examples 


of legal symbolic 


addresses: 








ADDR, 
TOTAL, 
SUM, 
Al 





The following are examples of illegal symboUc addresses: 
AD)M, (contains an illegal character) 

7ABC, (first character must be alphabetic) 

LA BEL, (must NOT contain imbedded space) 

Symbolic Insiructions 

Symbols used as instructions must be predefined by the Assem- 
bler or by the programmer. If a statement has no label, the instruc- 
tion may appear first in the statement, and must be terminated by 
a space, tab, semicolon, or carriage return. The following are ex- 
amples of legal operators: 

TAD (a mnemonic machine instruction operator) 

PAGE (an Assembler pseudo-op) 

ZIP (legal only if defined by the user ) 

SYMBOLIC OPERANDS 

Symbols used as operands normally have a value defined by 
the user. The Assembler allows symbolic references to instructions 
or data defined elsewhere in the program. Operands may be num- 
bers or expressions. 



TOTAL> TAD ACl+TAG 



The values of the two symbols ACl and TAG, already defined 
by the user, are combined by a two's complement add. This value 
is used as the address of the operand. 
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^yinuui xaoie 

The Assembler processes user defined symbols in source pro- 
gram statements by adding to its symbol table, which contains all 
defined symbols along with the binary value assigned to each 
symbol. 

Initially, the Assembler's symbol table contains the mnemonic 
op-codes of the machine instructions and the Assembler pseudo-op 
codes, as hsted in Appendix A2. As the source program is proc- 
essed, user defined symbols are added to the symbol table. 

If, during pass 1, PAL III detects that the symbol table is full 
(in other words, there is no more memory space to store symbols 
and their associated values), ihe symbol table full diagnostic: 

ST xxxxxx AT nnnn 
is printed; xxxxxx is the symbol that caused the overflow condition 
and nnnn is the current location when the overflow occurred. 
The Assembler halts and may not be restarted. 

More address arithmetic should be used to reduce the number 
of symbols. It is also possible to segment a program (using the 
PAUSE pseudo-op) and assemble the segments separately, taking 
care to generate proper links between the assemblies. PAL Ill's 
symbol caoacitv when usins the high-snper^ rp^rlpr 5c ^^si cvmn^ic 
The permanent symbol table contains 80 symbols leaving space 
for 478 possible user defined symbols. When using the low-speed 
reader PAL Ill's symbol capacity is 656 symbols, leaving space 

Direct Assignment Statements 

The programmer inserts new symbols with their assigned values 
directly into the symbol table by using a direct assignment state- 
ment of the form: 

SYMBOL = VALUE 

VALUE may be a number or expression. No space(s) or tab(s) 
may appear between the symbol to the left of the equal sign and 
the equal sign. For example: 

A = 6 

J-.A i i — unr L id 
C =A +B 

All symbols to the right of the equal sign must be already de- 
fined. The SVmbol tn the. Ipft of thf» #»nnal cirm nnA I'+o rMc:c'f^r>'%ntaA 
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valme is stored in the user's symbol table. The use of the equal sign 
does not increment the location counter. It is, rather, an instruc- 
tion to the Assembler itself. 

A direct assignment statement may also equate a new symbol 
to the value assigned to a previously defined symbol. In this case 
the two symbols share the same memory location, 

BETA=17 
GAKMA=BETA 

The new symbol, GAMMA, is entered into the user's symbol table 
with the value 17. 

The value assigned to a symbol may be changed as follows: 

ALPHA=5 . 
ALPHA=7 

The second line of code shown changes the value assigned to 
ALPHA from 5 to 7. (This wiH generate an RD error, as explained 
uelow.y 

Symbols defined by use of the equal sign may be used in any 
valid expression. For example: 

*200 

A=100 /DOES NOT UPDATE CLC 

B=400 /DOES NOT UPDATE CLC 

A+B /THE VALUE 500 IS ASSEMBLED AT LOC 200 

TAD A /THE VALUE 1100 IS ASSEMBLED AT LOC 201 

If the symbol to the left of the equal sign has already been 
defined, the redefinition diagnostic: 

RD xxxxxx AT nnnn 

will be printed as a warning, where xxxxxx is the symbol name 
and nnnn is the value of the location counter at the point of re- 
definition. The new value will be stored in the symbol table; for 
example: 

CLA=7600 
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will. v^ctLiOV tiiw ^aitt^ii'U'onV'. 



RD CLA AT 0200 



Whenever CLA is used after this point, it will have the value 7600. 
Multiple assignments can be carried to two levels only. Where 
X is some previously defined symbol or combination of symbols: 

A=B=X will assemble, but 

A=B=G=X will not assemble. 

The expression to the right of the second equal sign must be 

bols. If this is not the case, a "pushdown stack overflow" diagnos- 
tic of the form: 

PO xxxx AT nnnn 

will be generated. This is a non-recoverable error condition which 
causes the assembly to terminate. Continuation is not possible at 
this point. The error must be corrected and the assembly restarted. 



EXPRESSIONS 

Symbols and numbers are combined by arithmetic and logical 
operators to form expressions. There are three operators: 

+ plus Signifies two's complement addition 

— minus Signifies two's complement subtraction 
space Space is interpreted in context 

When a space occurs in an expression that does not contain a 
memory reference instruction, it means an inclusive OR is to be 
performed. For example: 

CLA CLL 

Thf cMmho'i C^ A hoQ o v/5>inf of 770^ ctnA thp' cvmKnl fl 1 iiac a 

value of 7100; CLA CLL would produce 7300. User defined sym- 

uOia aic LiCciLcu a^ KJUCiatQ iiiSti u^-LiwiiS. ikji Qj^a.iiiui^. 

i. X 

A=333 
*222 

Bj CLA 
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Possible expressions and their values using the symbols just defined 
are shown below. Notice that the Assembler reduces each expres- 
sion to one 4-octal-digit word: 



A 


0333 


B 


0222 


A+B 


0555 


A-B 


0111 


-A 


7445 


1-B 


7557 


B-1 


0221 


A B 


0333 


-71 


7707 


etc. 





(an inclusive OR is performed) 



An expression is terminated by either a comma, carriage return, 
or semicolon (;). If any information is generated to be loaded, the 
current location counter is incremented. For example: 

B-7; A+4; A+B 

produces three words of information and the current location 
counter is incremented after each expression. The statement: 

HALT=HLT CLA 

produces no information to be loaded (it produces an association 
in the symbol table) and hence does not increment the current loca- 
tion counter. 

♦ 4721 

TEMP, 

TEM2:r 



The location counter is not incremented after the line TEMP, and 
hence the two symbols TEMP and TEM2 are assigned the same 
value, in this case 4721 . 

Since a PDP-8 instruction has an operation code of three bits 
as well as an indirect bit, a page^bit, and seven address bits, the 
Assembler must combine memory reference instructions in a man- 
ner somewhat differently from the way in which it combines 
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operate or lOT instructions. The Assembler differentiates between 
the symbols in its permanent symbol table and user defined sym- 
bols. The following symbols are used as memory reference instruc- 
tions: 



AND 


0000 


Logical AND 


TAD 


1000 


Two's complement addition 


ISZ 


2000 


Increment and skip if zero 


DCA 


3000 


Deposit and clear accumulator 


JiVO 




Jump to subroutine 


JMP 


5000 


Jump 


FADD 


iooo 


Floating addition 


FSUB 


2000 


Floating subtraction 


FMPY 


3000 


Floating multiply 


FDIV 


4000 


Floating divide 


FGET 


5000 


Floating GET 


FPUT 


6000 


Hoating PUT 



When the Assembler has processed one of these symbols, the 
space following it acts as an address field delimiter. 



Aj 



JMP A 
CLA 



A has the value 4101, JMP has the value 5000, and the space acts 
as a field delimiter. These svmbols are renresented as follows: 



JiVir 



100 001 000 001 

1 r\n rvnrv rtrvr* r\f\f\ 
lUU KJKJV VKJKJ UUU 



The seven address bits of A are taken, i.e.: 

000 001 000 001 

The remaining bits of the address are tested to see if they are 
zeros (page zero reference); if they are not, the current page bit is 

C(=»t - 

000 on 000 001 
The operation code is then ORed into the JMP expression to form: 

101 Oil 000 001 
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or, written more concisely in octal: 

5301 
In addition to the above tests, the page bits of the address field 
are compared with the page bits of the current location counter. 
If the page bits of the address field are nonzero and do not equal 
the page bits of the current location counter, an out-of-page refer- 
ence is being attempted and the illegal reference diagnostic is 
printed on pass 2 or pass 3. For example: 

*4100 
A, CLA CLL 



*7200 
JMP A 

The symbol in the address field of the JMP instruction has a 
value of 4100 while the location counter (the address where the 
instruction is placed in memory) has a value of 7200. This instruc- 
tion is illegal because PAL III does not generate off-page reference, 
and will be flagged during pass 2 or pass 3 by the illegal reference 
diagnostic: 

IR 4100 AT 7200 

(Note, such a diagnostic would not be generated when using 
MACRO or 4K PAL-D which both automatically generate off-page 
references). 

ADDRESS ASSIGNMENTS 

The PAL III Assembler sets the origin, or starting address, of 
the source program to absolute location (address) 0200 unless the 
origin is otherwise specified by the programmer. As source state- 
ments are processed, PAL III assigns consecutive memory ad- 
dresses to the instructions and data words of the object program. 
This is done by automatically incrementing the current location 
counter each time a memory location is assigned. A statement 
which generates a single object program storage word increments 
the location counter by one. Another statement might generate six 
storage words, incrementing the location counter by six. 

Direct assignment statements and some Assembler pseudo-ops 
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do not generate storage words and therefore do not attect the lo- 
cation counter. 

Current Address Indicator 

The special character period (.) always has a value equal to the 
value of the current location counter. It may be used as any integer 
or symbol (except to the left of an equal sign). For example: 



Sf: 'd W W 

JMP . +2 






*300 
.+2400 



will produce in location 0300 the quantity 2700. Consider 



*2200 

CALL=JMS I 



The second line (CALL=JMS I .) does not increment the current 
location counter, therefore, 0027 is placed in location 2200 and 
CALL is placed in the user's symbol table with an associated value 
of 4600 (the octal equivalent of JMS I .). 



Indirect Addressing 

When the character I appears in a statement between a memory 
reference instruction and an operand, the operand is interpreted 
as the address (or location) containing the address of the operand 
to be used in the current statement. Consider: 

TAD 40 

which is a direct address statement, where 40 is interpreted as the 
address on page zero containing the quantity to be added to the 
accumulator. References to addresses on the current page and to 
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page zero may be done directly. An alternate way to note the page 
zero reference is with the letter Z, as follows: 



TAD Z 40 



This is an optional notation, not differing in effect from the pre- 
vious example. Thus, if address 40 contains 0432, then 0432 is 
added to the accumulator. Now consider: 



TAD I 40 



which is an indirect address statement, where 40 is interpreted as 
the address of the address containing the quantity to be added to 
the accumulator. Thus, if address 40 contains 0432, and address 
432 contains 0456, then 456 is added to the accumulator. 



NOTE 

Because the letter I is used to indicate in- 
direct addressing, it is never used as a vari- 
able. Likewise the letter Z, which is some- 
times used to indicate a page zero reference, 
is never used as a variable. 



Autoindexing 

Interpage references are often necessary for obtaining operands 
when processing large amounts of data. The PDP-8 computers 
have facilities to ease the addressing of this data. When absolute 
locations 10 to 17 (octal) are indirectly addressed, the content of 
the location is incremented before it is used as an address and the 
incremented number is left in the location. This allows the pro- 
grammer to address consecutive memory locations using a min- 
imum of statements. 

It must be remembered that initially these locations (10 to 17 
on page 0) must be set to one less than the first desired address. 
Because of their characteristics, these locations are called autoin- 
dex registers. No incrementation takes place when locations 10 
to 17 are addressed directly. For example, if the instruction to be 
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executed next is in location 300 and the data to be referenced is 
on the page starting at location 5000, we can use autoindex regis- 
ter 1 to address the data as follows: 



0276 
0277 

0300 



1377 



1410 



TAD C4777 
TAD I 10 



/=5000-l 

/SET UP AUTO INDEX 
/INCREMENT TO 5000 
/BEFORE USE AS AN ADDRESS 



0377 



777 



C4777j 4777 



When the instruction in location 300 is executed, the contents 
of location 10 will be incremented to 5000 and the contents of 
location 5000 will be added to the contents of the accumulator. 
When the instruction TAD I 10 is executed again, the contents of 
location 5001 will be added to the accumulator, and so on. 

INSTRUCTIONS 

There are two basic groups of instructions: memory reference 
and microinstructions. Memory reference instructions require an 
operand; microinstructions do not require an operand. 

irxciiiGij Kciciciivc xu3i.i.u«.uuji;3 

In PDP-8 computers, some instructions require a reference to 
memory. They are appropriately designated memory reference 
instructions, and take the following format: 



OPERATION 
COOES 0-5 






MEMORY 
PAGE 












' 








1 


2 


1 ^ 


4 


5 


6 


7 


8 9 


10 


11 






iNDIRECn 
ADDRESSi 


\^ 














r 
NK3 








IDDRESS 







Memory Reference Instruction Bit Assignments 

Bits throuo^h 2 contain the oneration code of the instruction 
to be performed. Bit 3 tells the computer if the instruction is in- 









tion of the address of the operand. Bit 4 tells the computer if the 
instruction is referencing the current pase or page zero. This leaves 

DltS 






T^T on 






13-24 



200 octal or 128 decimal locations can be specified; the page bit 
increases accessible locations to 400 octal or 256. decimal. For a 
list of- the memory reference instructions and their codes; see 
Appendix A2. 

In PAL III a memory reference instruction must be followed 
by a space (s) or tab(s), an optional I or Z designation, and any 
valid expression. In PAL III Memory Reference Instructions may 
be defined with the FIXMRI instruction, explained under the sec- 
tion on Altering the Permanent Symbol Table. Permanent symbols 
may be defined using the FIXTAB instruction. In PAL III perma- 
nent symbols may be used in address fields as shown below: 

A=1234 
FIXTAB 
TAD A 

Microinstructions 

Microinstructions are divided into two groups: operate and In- 
put/Output Transfer (lOT) microinstructions. 

NOTE 

If a programmer mistakenly makes an illegal 
combination of microinstructions, the As- 
sembler will perform an inclusive OR be- 
tween them; i.e., 
CLL SKP is interpreted as SPA 

(7100 7410) (7510) 

OPERATE MICROINSTRUCTIONS 

Within the operate group, there are two groups of microinstruc- 
tions which cannot be mixed. Group 1 microinstructions perform 
clear, complement, rotate and increment operations, and are des- 
ignated by the presence of a in bit 3 of the machine instruction 
word. (See Permanent Symbol Table list in Appendix A2.) 



OPERATION 
CODE 7 



ROTATE 1 
ROTATE POSITION IF A0 
AC AND L 2 POSITIONS 
RIGHT IF A 1 






1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 



CONTAINS 
A e TO 

SPECIFY 
GROOPl 



ROTATE 

AC AND L. 

LEFT 



Group 1 Operate Microinstruction Bit Assignments 
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Group 2 microinstructions check the contents of the accumu- 
lator and link and, based on the check, continue to or skip the 
next instruction. Group 2 microinstructions are identified by the 
presence of a 1 in bit 3 and a in bit 1 1 of the machine instruction 
word (See Appendix A2). 



REVERSE 
SKIP 
OPERATKJN SENSING OF 

CODE T CLA SZA BITS 5,6,7 



- _ I 



I ; r j 
5 j 6 I 7 j 8 ] S I 10 j 11 
1 1 1 I I ! 



CONTAINS A 1 SMA SNL GSR CONTAINS A 

TO SPECIFY TO SPECIFY 

GROUP 2 SROUP 2 

Group 2 Operate Microinstruction Bit Assignments 

Group 1 and Group 2 microinstructions cannot be combined 
because bit 3 determines either one or the other. 

Within Group 2, there are two groups of skip instructions. They 
can be referred to as the OR groups and the AND group. 

OR Group AND Group 

SMA SPA 

SZA SNA 

SNL <i7\ 



The OR group is designated by a in bit 8. and the AND group 
by a 1 in bit S. OR and AND group instructions cannot be com- 
bined because bit 8 determines either one or the other. 

If the programmer does combine legal skip instructions, it is 
important to note the conditions under which a skip may occur. 

1. OR Group — If these skips are combined in a statement, the 
inclusive OR of the conditions determines the skip. For 
example: 

SZA SNL 

The next statement is skipped if the accumulator contains 
0000, or the link is a 1 , or both conditions exist. 

2. AND Group — If the skips are combined in a statement, the 
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logical AND of the conditions determines the skip. For 
example: 



SNA SZL 



The next statement is skipped only if the accumulator differs ' 
from 0000 and the link is 0. 



INPUT/OUTPUT TRANSFER MICROTNSTRUGTIONS 

These microinstructions initiate operation of peripheral equip- 
ment and effect an information transfer between the central proces- 
sor and the Input/Output device(s). 

The Permanent Symbol Table in Appendix A2 contains the 
commonly used lOTs for the disk, TTY, DECtape, and high 
speed devices. These and other TOTs are discussed in detail in the 
7970 Small Computer Handbook. 

Pseudo-Operators 

The programmer uses pseudo-operators to direct the Assembler 
to perform certain tasks or to interpret subsequent coding in a 
certain manner. Some pseudo-ops generate storage words in the 
object program, other pseudo-ops direct the Assembler as to how 
to proceed with the assembly. Pseudo-ops are maintained in the 
permanent symbol table. 

The function of each PAL III pseudo-op is described below. 

INDIRECT ADDRESSING 

I Symbolic representation for indirect addressing, must be 
separated on each side by at least one space. 

For example: 

DCA I ADD 



The value of the svmbol ADD is used as the address of the address 
in which the contents of the accumulator will be stored. 

Z Optional method of denoting a page zero reference. 
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For example: 

DCA ADD 
. DCA Z ADD 

The two statements above have the same meaning and generate 
the same code, where ADD is on page zero. 

Both Z and I can be present in the same instruction, separated 
by at least one space, as follows: 

DCA Z I ADD. 

which is the sam-C as: 

DCA I ADD 

RADIX CONTROL 

Numbers used in a source program are initially considered to be 
octal num.bers. However, if the programmer wishes to have certain 
numbers interpreted as decimal, he can use the psuedo-op 
DECIMAL. 

DECIMAL All following numbers are taken as decimal until 

the occurrence of the pseudo-op OCTAL. 
OCTAL Resets the radix to its original octal base. 

HAiLrSuiiu ivmiviOi^.1 

wnen usmg more man one memory oanK, me pscuuu-up nci^i^ 
instructs the Assembler to output a field setting. This field setting 

which in turn causes all subsequent information to be loaded into 
the field specified by the expression. A new origin should be spec- 
ified after using the FIELD pseudo-op. 

FIELD n Where n is an integer, a previously defined symbol, 
or an expression within the range ^ n ^ 7. 

The FIELD pseudo-op causes a field setting (binary word) of the 
form: 

1 i. XXX 000 where 000 ^ xxx < 1 II2 

trk he r»iitmit o" +^>'^ hin5ir\/ tanp Hu»"in<J na«<: 9 Thi<: W'^T'd i<; read 

13-28 



by the Loader, which then begins loading information into the new 
field. 



NOTE 

CDF and CIF instructions must be used 
prior to any instruction referencing a loca- 
tion outside of the current field, as shown 
in the following example: 



*200 

TAD P301 

CDF 00 

CIF 10 

JMS PRINT 

CIF 10 

JMP NEXT 
P301:, 301 

FIELD 1 

*200 
NEXT:» TAD P302 

CDF 10 

JMS PRINT 

HLT 
P302^ 302 
PRINT, 

TLS 

TSF 

JMP .-1 
• CLA 

RDF 

TAD P6203 

DCA .+1 

000 

JMP I PRINT 
P6203, 6203 



When FIELD is used, the Assembler follows the new FIELD set- 
ting with an origin at location 200. For this reason, if you want to 
assemble code at location 400 in field 1 you must write: 



FIELD 1 /CORRECT EXAMPLE 

*400 
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The following is incorrect and will not geiieiate the desired code: 



*400 /IMCORRECT 

FIELD 1 



END OF TAPE 

The pseudo-op PAUSE signals the Assembler to stop processing 
the paper tape being read. The current pass is not terminated, and 

piUUCbblUg UUlllUluci Vviicii LUC U3Ci vav-jjicaSi^a tin_ v^-wii xii.-<Ox^ ivwj 

(when using MACRO depress CONTINUE; when using PAL-D, 
type CTRL/P). 

vVliea processiiig a segnientcu program, tuc programiiicr uses 
the PAUSE pseudo-op as the last statement of each segment (tape) 
to halt Assembler processing, giving him time to insert the next 
segment of his program. 

The PAUSE pseudo-op should be used only at the physical 
end of a tape or file and with two or more tapes of one program. 
When the Assembler reaches a PAUSE statement it does the 
following: 

1. The Assembler stops. 

2. This is the physical end of the tape; the Assembler resets 
the input buffer pointer. 

3. Operator intervention is required to put the next tape seg- 
ment of the program in the reader and press the CON- 
TINUE key. 



If a PAUSE is encountered somewhere other than at the physical 
end of a tape, some of the user code immediately after the PAUSE 
will not be assembled. This occurs because PAL III has an input 
buffer to allow maximum use of reader speed. A tape is read in 
until the buffer is filled or the physical end of the tape is reached. 
The contents of the buffer are then processed. However, upon rec- 
ognizing a PAUSE, PAL III resets the buffer to empty and waits 
for step 3 above. 

END OF PROGRAM 

T^K^a o-'^^r'io^ c'rrv-iKj-^! ri*-4!!ot- canrrt i *^ I ir^nir'citpc f nf* prirt r\T ^ T^rrb— 

gram. When the Assembler encounters the dollar sign, it termi- 

pass before it will correctly proceed with the assembly. 
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ALI ERING THE PERMANENT SYMBOL TABLE 

PAL III contains a table of symbol definitions for the PDP-8 
and its most common peripheral devices. These are symbols such 
as TAD, DCA, and CLA, which are used in most PDP-8 Pro- 
grams. This table is considered to be the permanent symbol table 
for PAL III; all of the symbols it contains are listed in Appendix 
A2. 

If the user purchases one or more optional devices whose in- 
struction set is not defined among the permanent symbols (for 
example EAE or an A/D Converter), he would want to add the 
necessary symbol definitions to the permanent symbol table in 
every program he assembles. Conversely, the user who needs more 
space for user defined symbols would probably want to delete all 
definitions except the ones used in his program. For such purposes, 
PAL III has three pseudo-ops that can be used to alter the perma- 
nent symbol table. These pseudo-ops are recognized by the As- 
sembler only during pass 1 . During either pass 2 or pass 3 they are 
ignored and have no effect. 

EXPUNGE Deletes the entire permanent symbol table, ex- 
cept pseudo-ops. 

FIXTAB Appends all presently defined symbols to the 
permanent symbol table. All symbols defined 
before the occurrence of FIXTAB are made part 
of the permanent symbol table until the Assem- 
bler is reloaded. For example, the PAL III Ex- 
tended Symbols Tape ends with FIXTAB. 

To append the following RF08 disk lOTs to the symbol table, 
the programmer generates an ANSCII tape of: 

DCIM=661 1 

DIML=661 5 

DIMA=6616 

DFSE=6621 

DISK=6623 

DCXA=6641 

DXAL=6643 

DXAC=6645 

DMKT = 66'!i6 

FIXTAB 

PAUSE 
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The ANSCII tape is then read into core ahead of the symbolic 
program tape during pass 1. The PAUSE pseudo-op stops assem- 
bly, and the Loader waits for the programmer to put the symbolic 
program tape into the tape reader and press CONTINUE. 

Each time the Assembler is loaded, PAL Ill's permanent symbol 
table is restored to contain only the permanent symbols shown in 
Appendix A2. 

.nilCi ailCilllg lllC bj'lllU^Jl lauiv tVJ lit ins nCCvaS, luC uoCj. iingnt 

want to keep PAL III in this state for future use. This can be done 
by punching a binary of the section of core occupied by PAL III 
with its new symbol table. 
To do this: 

1. Read in PAL III and modify symbol table as desired. 

2. PAL Ill's symbol table begins at location 2332 (octal). 
Count all the symbols in the altered symbol table. Since each 
symbol and its value require four words multiply this number 
by 4. Convert this number to octal and add it to 2332 
(octal). This number is the upper limit of PAL III. The 
lower limit is 0001. 

3. Usin2 the Binarv Punch Routine fDEC-08-YXYA-D), 

W ilt^ix \_*WW5 iX L/iiii-ii- y Wi_/ik.- viM.i.ii|^ >^\J t.ii.w i.Ai ei,i.i. l5 §-> WWW- vv-i i Wi'i-- 

the PAL III Assembler. 

4X|-»p /-4iift-*nf rvf fVio Tiir»or\r Pnr»r»Vi Pn^^+ip^ ^^ fhf^ AccpmK1i=^r 
. X lit/ \-f Ltt U/ Ci I. KJL I.I1\^ JL^tllU-JL V A. M-ll^/Ll JlV,VV».V»i.X^/ Xi3 \,Xt.^/ A. ».Ui3'WAJ.A«_/i*i'J>- 

Witii tiiv liiv/viiiiWA i3\iiicvi ttii..7i\^ cii.i\a wciii (l/w iwtivi-wvj. w**,!! vnw 

Binary Loader. This revised version of the Assembler can 
thereafter be used instead of the original version. 

The third pseudo-op used to alter the permanent symbol table 
in PAL III (and not present in MACRO or PAL-D) is FIXMRI 
which may be used only after an EXPUNGE instruction: 

FIXMRI Fix memory reference instruction. Memory reference 
instructions are stored in the perm.anent symbol table 
immediately following the pseudo-ops. The letters 
FIXMRI must be followed by one space, the symbol 
for the instruction to be defined, an equal sign, and 
the value of the symbol. The pseudo-op must be re- 
peated for each memory reference instruction to be 
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defined. All memory reference instructions must be 
defined before the definition of any other* symbols. 



For example: 



EXPUNGE 

FIXMRI TAD=1000 

FIXMRI DCA=3000 

CLA=7200 

FIXTAB 

PAUSE 



When the preceding program segment is read into the Assembler 
during pass 1, all symbol definitions are deleted and the three 
symbols listed are added to the permanent symbol table. Notice 
that CLA is not a memory reference instruction. This process is 
often performed to alter the Assembler's symbol table so that it 
contains only those symbols used at a given installation or by a 
given program. This may increase the Assembler's capacity for 
user defined symbols in the program. 



PROGRAM PREPARATION AND ASSEMBLER OUTPUT 

The source language or symbolic tape is punched in ANSCII 
code on 8-channel paper tape, using an off-line Model 33 ASR 
Teletype or the on-line Symbolic Editor. In general, a program 
should begin with leader code, which may be blank tape, code 200, 
orRUBOUTs. 

Certain codes which the Assembler ignores may be used freely 
to produce a more readable symbolic program listing. These codes 
are TAB and LINE FEED. The Assembler also ignores extraneous 
spaces, carriage return/fine feed combinations, and blank tape. 
When the Assembler encounters a form feed character, it causes 
12 blank lines to be output on the listing (in PAL III only). 

The two programs below are identical and produce the same 
binary code. The second, however, was generated using the TAB 
function of the Symbolic Editor and is easier to read. The first 
program assembles faster only because there is less paper tape to 
be read into the computer. 
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*200 

/EXAMPLE OF INPUT TO THE FORMAT 

/GENERATOR PROGRAM 

BEGIN^ 0/START OF PROGRAM 

KCC 

KSF/WAIT FOR FLAG 

JMP .-1/FLAG NOT SET YET 



KRB/ 




T M 




DCA 


CHAR 












TAD 


CHAR 












TAD 


MSPACE/IS 


IT 


A 


SPACE? 



SNA* CLA 

KLT/YES 

JMP BEGIN+a/NO: INPUT AGAIN 

CHAR^0 /TEMPORARY STORAGE 

MSPACE,-240/-ANSCII EQUIVALENT 

/END OF EXAMPLE 

S 



LtTf\l- 



/EXAMPLE OF INPUT TO THE 
/GENERATOR PROGRAM 



■ORMAT 



BEGIN^ 


KCC 




/START OF PROGRAM 




KSF 




/WAIT FOR FLAG 




JMP 


.-1 


/FLAG NOT SET YET 


*-■ 


KRB 




/READ IN CHARACTER 




DCA 


CHAR 






TAD 


CHAR 






TAD 


MSPACE 


/IS IT A SPACE? 




SNA 


CLA 






HLT 




/YES 




JMP 


BEGIN+2 


/NO: INPUT AGAIN 


CHARj. 







/TEMPORARY STORAGE 



/END OF EXAMPLE 
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The program consists of statements and pseudo-ops; is termi- 
nated by the dollar sign ($), and followed by some trailer code. If 
the program is .large, it can be segmented using the pseudo-op 
PAUSE, which often facilitates the editing of the source program 
since each section will be physically smaller. 

The Assembler initially sets the current location counter to 
0200. This counter is reset whenever the asterisk (*) is processed. 

During pass 1, all illegal characters cause a diagnostic to be 
printed. The tape should be corrected and reassembled. 

The Assembler reads the source tape and defines all symbols 
used. The user's symbol table is printed (or punched) at the end 
of pass 1 . The symbol table is printed in alphabetical order. If 
any symbols remain undefined, the undefined address diagnostic 
is printed. If the program listed on the previous page were assem- 
bled, the pass 1 symbol table output would be: 



BEGIN 0200 
CHAR 0213 
MSPACE 0214 



During pass 2, the Assembler reads the source tape and gen- 
erates the binary code, using the symbol table equivalences de- 
fined during pass 1 . The binary tape that is punched may be loaded 
by the Binary Loader. This binary tape consists of leader code, an 
origin setting, and data words. At the end of pass 2, a checksum 
(See Index/ Glossary) is punched on the binary tape, and trailer 
code is generated. During pass 2, the Assembler may diagnose an 
illegal reference; when using the 33 ASR Punch, the diagnostic 
is both printed and punched, and is preceded and followed by 
RUBOUTs. The Binary Loader ignores everything that has been 
punched on a tape between RUBOUTs. 

During pass 3, the Assembler reads the source tape and gen- 
erates the code from the source statements. The assembly listing 
is printed (or punched). It consists of the current location counter, 
the generated code in octal, and the source statement. The symbol 
table is printed at the end of the pass. If the sample program listed 
above were assembled, the pass 3 output would be: 
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*200 












/EXAMPLE OF 


INPUT TO THE FORMAT 








/GENERATOR PROGRAM 


0200 


0000 


BEGIN^ 







/START OF PROGRAM 


0201 
0202 
0203 
0204 


6032 
6031 
5202 
6036 




KCC 
KSF 
JMP 
KRB 


.-1 


/WAIT FOR FLAG 
/FLAG NOT SET YET 
/READ IN CHARACTER 


0205 


3213 




DCA 


CHAR 




0206 
0207 


1213 
1214 




TAD 
TAD 


CHAR 
MSPACE 


/IS IT A SPACE? 


0211 

0212 

0213 
mo 1 /■ 

SOT tj A ~^ 


7402 

5202 
0000 

•7 5/10 


CHAR:. 
MSPACE - 
/END OF 


SNA CLA 

HLT 

JMP BEGIN+2 



-240 

EXAMPLE 


/YES 

/NO: INPUT AGAIN 
/TEMPORARY STORAGE 
/-ANSCII EQUIVALEN 


BEGIN 


0200 










CHAR 


0213 










MSPACE 


0214 











OPERATING PROCEDURES 

The PAL III Assembler is provided to DEC customers as a 
binary tape, which is loaded into the PDP-8 memory by means of 
the Binary Loader, using either the 33 ASR reader or the high- 
speed reader. The Assembler also uses either the 33 ASR reader 
or the high-speed reader to read the source language tape, and it 
uses either the 33 A.SR T^unch or the high-speed punch for output. 
The selection of 1/0 devices is made when the Assembler is 
started. The source language tape must be in the proper reader, 
with the reader and punch turned on. 

When using the high-speed punch, the symbol table is printed 
on the 33 ASR Teletype of bit 11 of the switch register is a 0. 
The symbol table is punched on the high-speed punch if bit 1 1 of 
the switch register is a 1. 

All diagnostics are printed on the 33 ASR (except for the unde- 
nnea adoress uiagiiosju^^ wucn usm^ mt- ^^ r\^x-^ j^^j.j.<^ix, v^j. >.-->' 
hi<^h-speed punch if it is included in the machine configuration and 

^ , ,. • • n rii 1- _ !ii 1 f^^^^^^ 

lUlllClJ Oil. i ilK^ VJliiJi \JiCi^^i^J^».l>.- -" j-.^*^^ *- t • ^o " 

(Since this diagnostic is printed on the 33 ASR, it will also be 

T J it.^ u:^<v^,r +.^»-.^ T+ n/ill lin«7f>\/p>r \\f^ icrnnrpfl Hv the 

[JUiiCiicu uxi Liic uiiiai_y ictpv. xi mil, i.v^..w>>,^, ^~ -e,'*"- — ~j 

Binary Loader.) The bit 1 1 switch option can also be used during 
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pass 3. If the machine is not equipped with a high-speed punch, 
bit 1 1 must be set to 0. 

Tn addition to the binary tape of the PAL 111 Assembler, the 
user is provided with an ANSCII tape (PAL 111 Extended Symbols 
Tape) containing symbol definitions for the instruction sets of the 
available options to the PDP-8 (card readers, magnetic tapes, and 
A/D converters). A limited amount of space is available in a 4K 
system; therefore, expanding the number of permanent symbols 
that the Assembler recognizes wilt decrease the maximum number 
of symbols the user has available. 

The following is a description of steps in using the PAL HI 
Assembler (this information can also be found in Volume 1, 
Chapter 6): 

1. Load the Assembler, using either the 33 ASR reader or the 
high-speed reader. 

2. Set 0200 into the switch register; press LOAD ADDRESS. 

3. Place the source language tape in the reader, turn on the 
appropriate reader and the punch. 

4. Set bits and 1 of the Switch Register for the proper pass. 
These settings are: 

Bit Bit 1 






1 


pass 1 


1 





pass 2 


1 


I 


pass 3 



Pass 1 is required so that the Assembler can initialize its symbol 
table and define all user symbols. After pass 1 has been made, 
either pass 2 or pass 3 can be made. 

5. Bit 11 switch options: 

pass 1 Bit 11=1 Punch the symbol table on the high- 
speed punch if it is in the machine 
configuration. 
Bit 1 1 =0 Print (and punch) the symbol table 
on the 33 ASR (low-speed punch). 
P^s 2 11=1 Punch binary tape on high-speed 

punch, 
11=0 Punch binary tape on low-speed 
punch. 
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pass 3 Bit 11 = 1 Punch the assembly listing tape in 

ANSCIL on the high-speed punch. 
Bit 11=0 Print the assembly listing on the 33 
ASR. 
Bit 10 switch options: 
pass 3 Bit 10=1 Output TAB (code 2 1 1 ) as 8 space 

tab stops. 
10=0 Output TAB as TAB RUBOUT 

(code 211 and 377). 
Bit 2 switch options: 

passes 1 and 3 

Bit 2=1 Suppress output of symbol lable. 

2=0 Output symbol table. 
6 Press START to begin pass 1 only. Press CONTINUE to 
begin passes 2 or 3. The Assembler halts at the end of each 
pass. Proceed from step 3. If the Assembler has halted be- 
cause of a PAUSE statement, put the next tape into the 
reader and press CONTINUE. 



SuiRinary of Diagnostic Messages for PAL III 

PASS 1 DIAGNOSTICS 

The assembler reads the source tape, defines all user symbols, 
and outputs the user symbol table in alphabetical order. Pass 
1 diagnostics are: 

m WW AT nnnn Illesal Character 

Where xxxx is the value of the illegal character and nnnn is 
the value of the current location counter when the character 
was processed. 

RD xxxx AT nnnn Redefinition 

Where xxxx is the symbol being redefined and nnnn is the 
value of the current location counter at tiiS poin^ o* r,, — -- 
inition. The symbol Is redefined. 



DT xxxx AT nnnn Duplicate Tag 

An attempt is being made to redefine a symbol usmg the 
comma, xxxx is the symbol and nnnn is the value of the cur- 
rent location countv at the point of redefinition. The previous 
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value of the symbol is retained and the symbol is not re- 
defined. 

ST xxxx AT nnnn Symbol Table Full 

Where xxxx is the symbol causing the overflow and nnnn is 
the value of the current location counter at the point of over- 
flow. The Assembler halts and cannot be restarted. 

PO xxxx AT nnnn Pushdown List Overflow 

This error message occurs in the most recent version of PAL 
Iir. An attempt is being m_ade to carry a multiple assignment 
to more than two levels; i.e., the value of the symbol or ex- 
pression to the right of the second equal sign was not known 
to the Assembler when it was encountered in the multiple 
assignment statement, xxxx is the value of the pushdown 
stack pointer and, by definition of overflow, this value is the 
address of the last location in the stack. 

The value of the current location counter when overflow is 
detected is nnn. The Assembler halts at this point without 
reading more source tape. The CONTINUE key has no effect 
at this time; however, the Assembler can be restarted at loca- 
tion 200, as indicated in step 2 under Operating Instructions. 

UA xxxxxx AT nnnn ' Undefined Address 

Where xxxxxx is the symbol that was used, but never defined, 
and nnnn is the value of the current location counter when 
the symbol was first processed. This message is printed with 
the symbol table at the end of pass 1 . The symbol is assigned 
a value equal to the highest address on the memory page 
where it was first used. 



PASS 2 DIAGNOSTICS 

The Assembler reads the source tape, and, using the symbol 
table defined during pass 1 , generates and punches the binary 
code. This binary tape can then be loaded by the Binary 
Loader. The pass 2 diagnostic is: 

IR xxxx AT nnnn Illegal Reference 

Where xxxx is the address being referenced and nnnn is the 
value of the current location counter. The illegal address is 
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then treated as it it were on tne proper memory page, ror 
example: 



*730 6 
JMP 30 7 



would produce: 

IR 0307 AT 7306 



and would generate 5307 to be loaded into location 7306. 

PASS 3 DIAGNOSTICS 

The Assembler reads the source tape and, using the symbol 
table defined during pass 1, generates and prints the code 
represented by the source statements. The current location 
counter, the contents, and the source statement are printed 
side by side on one line. If bit 1 1 of the switch register is a 1 
and the machine configuration includes the high-speed punch, 
the assembly listing is punched in ANSCII. The pass 3 diag- 
nostic is Illegal Reference, as in pass 2. 
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MACRO PROGRAMMING 

Having mastered the sections on assembly language program- 
ming in Volume 1 and the material in this chapter on PAL III, we 
turn to the MACRO Assembler (sometimes called MACRO-8). 
MACRO is compatible in most respects with PAL III and has sev- 
eral additional features which will be of interest to more advanced 
PDP-8 programmers: double precision integers, floating point con- 
stants, Boolean operators, link generation, literals, a text facility, 
and user defined macros. 

NUMBERS 

The types of numbers allowed in MACRO assemblies are in- 
tegers, double precision integers, and double precision floating 
point numbers. 

Double Precision Integers 

Double precision integers may be positive or negative (stored as 
two's complement) according to their sign but may not be com- 
bined with operators in expressions. They are always taken as 
decimal radix although the current radix of the program is not 
disturbed. Each double precision integer is allotted two consecutive 
words with the sign indicated by bit of the first word, as shown 
below: 



SIGN BIT ■ 



3 



WORD 1 



12 23 



WORD 2 



The double precision integer mode is entered through the use 
of the pseudo-op DUBL. All numbers encountered after the occur- 
rence of DUBL are considered double precision integers (stored in 
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2 words) until an alphabetic character is encountered. Each num- 
ber is terminated by a carriage return, semicolon (;), or comment. 
For example: 



DUEL 



*400 

679467 

44 

-3 

CLA 



The preceding section of code would produce: 



Location 


Contents 


0400 


0245 


0401 


7053 


0402 


0000 


0403 


0054 


0404 


7777 


0405 


7775 


0406 


7200 



The numbers indicated under Con- 
tents are the octal equivalent of the 
decimal numbers above. The CLA 
instruction is given the value 7200 
as found in the permanent symbol 
table. The symbol TAG would have 
a vaiuc ui uH-uu. 



Floating Point Constants 

Double precision floating point constants may be positive or 
negative according to their sign but cannot be combined with 
operators. Decimal radix is assumed but the current radix of the 
program is not ahered. Floating point constants are each assigned 
three words and are stored in normahzed form, as shown below: 



SIGN OF. 
EXPONENT 



n 



BINARY exponent: 
TWO'S COMPLEMENT 
SIGNED QUANTITY 



11 



MANTISSA 



1 HiijM ORDER 
I MANTISSA 



12 



23 



LOW ORDER 

|L*AMTICC A 



55 
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The exponent is a signed two's complement quantity in one 12- 
bit word. The signed mantissa is stored in two 12-bit words, main- 
taining 23 bits of significance, making a total of three words for 
storage. 

The double precision floating point mode is entered through use 
of the pseudo-op FLTG. All numbers encguntered after the use of 
FLTG will be interpreted as double precision floating point con- 
stants until the occurrence of an alphabetic character other than E. 
The general input format of a floating point number is: 

±ddd.dddE±dd 

where each d is a decimal digit. Any character which is not legally 
part of the above format (except RUBOUT) terminates input of 
the number. For example: 



*400 

FLTG +509.32E-02 

-62.97E04 
1 .00E-2 

TAG, CLA 



would produce upon execution: 

Location Contents 



0400 


0003 


0501 


2427 


0402 


6670 


0403 


0024 


0404 


5462 


0405 


0740 


0406 


7772 


0407 


2436 


0410 


5564 



0411 7200 

and the symbol TAG would be assigned a value of 0411. 
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In addition to those characters discussed under PAL III, the fol- 
lowing characters are used in MACRO: 



Symbol 
& 



Name 
ampersand 



1 


exclamation 




point 


>» 


double quote 





parentheses 


[1 


square brackets 


<> 


angle brackets 



Function 

Combines symbols or numbers (Bool- 
ean AND) 

Combines symbols or numbers (Bool- 
ean OR) 

Generates ANSCII code 

Defines a literal on the current page 

Defines a page literal 

Defines a macro 



EXPRESSIONS IN MACRO 

All c\TrT-\l^/-i.le OTiri niim i-\i3T-c { ti^vr'tucixrf^ r\T nci^nr^i^—f^r\Q tn Qr*rA 

JTk.ll oVilll-'V-'lO ClllVi 1HJ.1111_/V'X O V V/W/iH-l-Oi » W V/i. jL»t3WV*^-«.\^ v^Ly»_r, aj.xw.^.'j.- *-- 

names, and double precision or floating point constants), may be 
combined with certain arithmetic and logical operators to form 
expressions. These operators are: 



Symbol Name 
+ plus 



& 



minus 



exclamation 



ampersana 



space 



Function 

Signifies two's complement auuition 
modulo 4096 decimal 

Signifies two's complement subtrac- 
tion modulo 4096 decimal 

Signifies Boolean inclusive OR 
(union) 

Signifies Boolean AND (intersection) 

Interpreted in context; can signify an 
inclusive OR, or act as a field delimi- 
ter as in PAL III 
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Symbols and integers may be combined with any of the above 
operators. A symbolic expression is evaluated from left to right; 
grouping of terms (i.e., use of parentheses for grouping) is not 
permitted. For example: 

A B A+B A-B A!B A&B 



Value 


0002 


0003 


0005 


7777 


0003 


0002 


Value 


0007 


0005 


0014 


0002 


0007 


0005 


Value 


0700 


0007 


0707 


0671 


0707 


0000 



ORIGIN SETTING IN MACRO 

The origin is ordinarily set by use of the special character as- 
terisk (*) as described in PAL Ifl. All symbols to the right of the 
asterisk must already have been defined. For example, if D has the 
value 250 then: 

*D+10 

will set the location counter to 0260. 

To ease the programmer's addressing problems, a convention 
has been defined that divides memx0r>^ into sections called pages. 
Each page contains 200 octal locations (128 decimal) numbered 
to 177 (octal) on that page. There are 40 octal or 32 decimal 
pages numbered to 37 (octal). Some examples of page numbers 
and the absolute and relative locations (addresses) are shown be- 
low. It must be borne in mind, however, that there is no physical 
separation of pages in memory. 





Absolute 


Relative 


Page 


Address 


Address 





177 


177 


1 


200 377 


177 


2 


400 577 


177 


36 


7400 7577 


177 


37 


7600 7777 


177 



To simplify page handling, the pseudo-op PAGE can be used: 

PAGE n The PAGE pseudo-op resets the location counter to 
the first address of page n, where n is an integer, a 
previously defined symbol, or a symbolic expression. 
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ror example: 

PAGE 2 sets the location counter to 0400 

PAGE 6 sets the location counter to 1400 

PAGE When used without an argument, PAGE resets the 
location counter to the first location on the next suc- 
ceeding page. Thus, if a program is being assembled 
into page 1 and the programmer wishes to begin the 
next segment on page 2 he need only insert the pseudo- 
op PAGE, as follows: 



PAGE 



JMP .-7 
CLA 



LINK GENERATION 

In addition to automaticallv handling svmbolic addressing on the 
current page of core memory, MACRO automatically generates 
links for out-of-page references. MACRO compares the page bits 
of the address field with the ^ page bits of the location counter, 

an out-of-page reference is being attempted. 

If reference is made to an address not on the pa<^e where the 
instruction is located, the Assembler sets the indirect bit (bit 3), 
and an indirect address linkage will be generated on the current 
memory page. If the out-of-page reference is already an indirect 
one, the error diagnostic II (illegal indirect) will be printed during 
pass 2. 

When a link is generated, the LG (link generated) message will- 
be printed on pass 2 (in MACRO only, not in PAL-D). In the 
case of several out-of-page references to the same address, the 
link Will be generated only once, but the LG message will be 
printed each time. 

To suppress the LG message when links are generated, make the 
following change in MACRO (only recommended when the pro- 
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gram has been debugged): change the contents of location 1234 to 
7200. Do not make this change unless the LG message is not 
wanted. 



*2117 
A^ CLA 



*2600 
JMP A 



In the example above, the space preceding the user defined 
symbol A acts as an address field delimiter. The Assembler will 
recognize that the register labelled A is not on the current page 
(in this case 2600 to 2777) and will generate a link to it as follows: 

1. In location 2600 the Assembler will place the word 5777 
which is equivalent to JMP 1 2777. 

2. In address 2777 (the last available location on the current 
page) the Assembler will place the word 2117 (the actual 
address of A). 

Although the Assembler will recognize and generate an indirect 
address linkage when necessary, the programmer may indicate an 
explicit indirect address by using an explicit indirect address by 
using the special symbol I. This must be between the instruction 
code and the address field, as it would be placed in PAL III. The 
Assembler cannot generate a link for an instruction that is already 
specified as being an indirect reference. In this case, the Assembler 
will print the message II (illegal indirect). For example: 



*211 7 
CLA 



*2600 
JMP I A 



The above coding will not work because A is not defined on the 
page where JMP I A is attempted. 
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LITERAL^ 

Symbolic expressions appearing in the operand part of an in- 
struction usually refer to locations containing the quantities being 
operated upon. Therefore, the programmer must explicitly reserve 
locations to hold his constants. The MACRO language provides 
a means (known as literals) for using a constant directly. Suppose, 
for example, that the, programmer has an index which is incre- 
mented by two. One way of coding this operation would be as 



follows: 



*200 



CLA 

TAD INDEX 

TAD C2 

DCA irvDEX 



C2^ 



Using a literal, the above coding would be rewritten as: 



t'^ oky ^ 



CLA 

TAD INDEX 

TAD (2) 

DCA INDEX 



The left parenthesis is a signal to the Assembler that the expres- 
sion following is to be evaluated and assi'^ned a word in the con- 
stants table of the current page. This is the same table in which the 

quantity 2 is stored in a word in the linkage and literals list be- 
ginning at the too of the current memorv nape. The instruction 

—' "^ -i- " ^ k -"o- ■ ~ — . ■ 
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to the address of the Mteral. A literal is assigned to storage the first 
time it is encountered; subsequent reference to that literal from the 
current page is made to the same register. 

If the programmer wishes to assign literals to page zero rather 
than to the current page, he may use square brackets, [ and ], in 
place of the parentheses. This enables the programmer to reference 
a single literal from any page of core. For example: 

*200 
TAD C2] 



*500 
TAD C2] 



For the first and succeeding times the literal 2 is referenced, 
identical code is generated to a single location on page zero con- 
taining the literal. 

Whether on page zero or the current page, the right (closing) 
member may be omitted. The following examples are acceptable 



TAD (777 

AND CJMP 



In the second example, the instruction AND [JMP has the same 
effect as AND [5000. 

Literals can be nested, for example: 



*200 




TAD CTAD (30 




will generate the following: 




Location 


Contents 


0200 


1376 


0376 


1377 


0377 


0030 
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This type of nesting can be carried to as many levels as neces- 
sary. 

Literals are stored on each page starting at page address 177 
(relative) and extend toward page address (relative). Only 127 
decimal or 177 octal literals may be placed on page zero. If a 
literal is generated for a nonzero page and the origin is then set 
to another page, the current page literal buffer is punched out 

Mnrino" na«c 9V thi« HnPQ tint pffprt Infpr PYPPiitinn Tf fhe^ nrialn 

is then reset to the previously used page, the same literal will be 
generated if used again, but it will not destroy previously used 

To summarize, literals may take the following form.s: 

[C (C 
[V (V 
["C ("C 

[I (I 
[E (E 

\\r\ <^ 4„ -, * * \T :„ „ ;->i_!_ t :„ :_„* *; i r? 

YTiicic v^ i& <a v,uu&iaiii, v is it vciii<auic, i is <aii msiiucuuii, iuiu Cj 

is an arithmetic expression. [ indicates a page reference and ( in- 
dicates a current page reference. 



Arithmetic expressions may consist of constants, variables, and 
?erators but must nc 
a literal, for example: 



nneratnrs hiif mn<;t not include literals An instrnrtinn mav rnntain 

-J- _, 



TAD CJMP I C500 

is valid, while: 

TAD CA + (50 

is not valid. Literals may be used as the address part of a memory 
reference instruction: 

TAD ( 50 
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or in place of an instruction: 

(MSG4 

which causes the location address of the literal (MSG4 to be as- 
sembled at the point where it occurs in the program. 

NOTE 

If a large number of nested literals or par- 
ticularly large numbers of literals are used, 
the literal list may be output before the log- 
ical end of the page. This will not affect 
later execution. 

TEXT FACILITY 

Single Character Text Facility 

If a single character is preceded by a double quote ("), the 8-bit 
value of ANSCII code for the character is inserted instead of in- 
terpreting the letter as a symbol. For example: 

CLA 

TAD ("A 

will place the constant 0301 in the accumulator. 

Text Strings 

A string of text characters can be entered by giving the pseudo- 
op TEXT followed by a space, any delimiting character, a string 
of text, and a repetition of the same delimiting character. For 
example: 

TEXT ATEXTA 

The character codes are stored two per word in ANSCII code 
that has been trimmed to six bits. Following the last character, a 
6-bit zero is inserted as a stop code. The above statement would 
produce: 

2405 

3024 

0000 
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1 ne sirmg m me louowmg exampie: 



TEXT /BOB/ 



would produce: 



0217 
0200 

The TEXT pseudo-op could also be used as part of a calling 
sequence to a subroutine: 



I— f' XT «*> TTV^ '•^ ' CX T • 



JMS MESS . 
TEXT/ / 



Example 2: 



JMS MESS 

NOWDS 

ADDMESS 



/NO WDS IN MESSAGE 
/ADDRESS OF MESSAGE 



ADDMESS;- TEXT/ 



NOTE 

While the TEXT pseudo-op causes charac- 
ters to be stored in a trimmed code, the use 
of the single character control (") causes 
characters to be stored as a full 8-bit 
ANSCIIcode. 



USER DEFINED MACROS 

When writing a program, it often happens that certain coding 
sequences are used several times with different arguments. If so, 
it is convenient to generate the entire sequence with a single state- 
ment. To do this, the coding sequence is defined as a "macro", 
using dummy arguments. A single statement referring to the 
macro name, along with a list of real arguments, will generate 
the correct sequence in line with the rest of the coding. 
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Defining a Macro 

The macro name must be defined before it is used. The macro 
is defined by means of the pseudo-op DEFINE followed by the 
macro name and a list of dummy arguments separated by spaces. 
For example, a simple macro to move the contents of word A 
to word B and leave the result in the accumulator could be coded- 
as follows: 



DEFINE MOVE DUMMY 1 DUMMY2 

<CLA 

TAD DUMMY! 

DCA DUMMY2 

TAD DUMMY2> . 



The actual choice of symbols used as dummy arguments is 
arbitrary; however, they may not be defined or referenced prior to 
the macro definition. The definition of the macro is enclosed in 
angle brackets. 

The above denition of the macro MOVE can also be written as 
follows: 



DEFIME MOVE ARG.l ARG2 

<CLA;TAD ARGiJDCA ARG2; TAD ARG2> 



The definition of the macro is enclosed in angle brackets, as men- 
tioned above and the semicolon characters indicate the termination 
of a line of code, as in PAL III. 

When a macro name is processed by the Assembler, the real 
arguments replace the dummy arguments. For example, assuming 
that the macro MOVE has been defined above: 



*400 



-6 

MOVE A,B 
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produces tfte loiiowmg coae: 




Location 


Contents 


0400 


0000 


0401 


7772 


0402 


7200 


0403 


1200 


0404 


3201 


04ns 


1201 



Notice that a macro definition has spaces separating the dummy 
arguments and the macro call has commas separating the macro 
arguments. 

A macro need not have any arguments. For example, a sequence 
of coding to rotate the accumulator and link six places to the left 
might be coded as a macro by means of the following code: 



define rotl 
<rtl;rtljrtl> 



The entire macro definition is placed in the macro table, two 
characters per word, with a dummy argument value replacing the 
symbolic names. For example: 



DEFINE LOAD A 

<CLA 

TAD A> 



is stored, in the macro table, roughly as follows: 

jCLiA |TAJD j7700|>00 

where the vertical lines indicate successive 12-bit words. Com- 
ments and line feeds are not stored. 

The macro definition can consist of any valid coding except for 
TEXT (or " type) statements. 

Restrictions on Macros 

1. Macros cannot be nested, i.e., another macro name or 
definition cannot appear in a macro definition and cannot 
be brought in as an argument at the time a macro is refer-, 
enced. 
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2. TEXT (or " type) statements cannot appear in a macro 
definition. 

3. Arguments cannot be another macro name, a TEXT pseudo- 
op or a " character. 

4. The symbols used as dummy arguments must not have been 
previously defined or referenced. 

5. A macro cannot be redefined. 

Consider the following macro definition: 



DEFINE LOOP A B 

<TAD A 

DCA B 

TAD COUNT 

ISZ B 

JMP . -2> 



A macro is referenced by giving the macro name, a space, and 
the list of real arguments, separated by commas. There must be at 
least as many arguments in the macro call as in the corresponding 
macro definition. Wben a macro is referenced, its defi^nition is 
found, expanded, and the real arguments replace the dummy 
arguments. The expanded macro is then processed in the normal 
fashion. For example the macro call: 

LOOP X^Y2 

m the context of the program in which it appears, is equivalent to: 

TAD X 
DCA Y2 
TAD COUNT 
ISZ Y2 

JMP .-2 

The macro table shares the available space (604 decimal words, 
which is equivalent to 151 symbols) with the symbol table. Thus 
the programmer must be aware of the amount of room required 
by his macros and the fact that each symbol occupies four words 
of memory. Also, the arguments of a macro call are temporarily 
stored in this buffer space while the macro is being expanded. 
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SYMBOL TABLE SIZE 

To incorporate these new features, it was necessary to decrease 
the size of the symbol table and because of this, programs that 
were originally coded to be assembled by PAL III might have too 
many sym.bols to be assembled by MACRO. If switch registers 
10 and 11 are set to 1 during assembly, MACRO'S external 
(user) symbol table will be extended. 



SVmDOl laOie iViUUiiicauuiE 



Because of the small amount of core (604 decimal words) re- 
maining to be used for programmer symbols and the macro table, 

„ -T . yr..._ ^xr^_^J „,Uir>U on<~>xif o -nartinilar in- 

the loiiowmg suggesnoiis mc uncivu wi«v..ii m.x.v^.. ^ ^^^^ <^- 

stallation or individual to conserve symbol table space. 

By use of the pseudo-ops EXPUNGE and FIXTAB, unneces- 
sary instruction mnemonics can be removed from the symbol table, 
making more space available for programmer defined symbols and 
macros. This also decreases assembly time as the unused instruc- 
tion symbols are not involved in the symbol table searches. The 
most often used instruction mnemonics should be assembled first, 
so that the V will be in core next to the special characters and 
pseudo-ops;' This is desirable because the symbol search routine 
Starts searching at the top of the table and works down. 

At an installation that does not have optional equipment avail- 
able, the corresponding instruction sets can be removed. A sym- 
i_-i:' *„„p u^^;^„;„r. «nt>, PVPTINGF. containing all necessary 
_.:.„ -.^c ^^A ^nriSnrr iiritfi FTYTAR and S couW bc 

inSirUCLlUll mllCm^Jlll^-o, txii-^ wiiv..i.^ ,..>.. - 

assembled (only during pass 1 is this necessary) by MACRO prior 
to any othei- assem.blies. For example: 



EXPUNGE 
AND=0000 
TAD=i000 
CL.A=:7200 



FIXTAB 
$ 



The pseudo-op PAUSE could also be used with the above tape, as 

the Iirst tape oi a muiupie tape a^scmui)'. o^t m^ i.at wa. t'^ — 

symbols in Appendix A2. 



^wxxiACfc-.J-" 
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1 


2 


Word 1 






CI X 458 + C2 


Word 2 




C3 X 458 + C4 


Word 3 


C5 X 458 + C6 


Word 4 





Internal Symbol Representation for MACRO and PAL-D 

Each permanent and user defined symbol occupies four words 
(locations) in the symbol table storage area, as shown below: 



first 2 characters 
second 2 characters 
third 2 characters 
octal code or address 



where CI, C2, . . . , C6 represent the first character, second 
character, . . . , sixth character, respectively. (Remember symbols 
can consist of from one to six characters.) Bits and 1 of word 1, 
and bit of word 2 are system flags^ For a permanent symbol, 
word 4 contains the octal code of the symbol; for a user defined 
symbol, word 4 contains the address of the symbol. For example, 
the permanent symbol TAD is represented as follows: 

Word 1 = 248 X 458 + 01 = 13458 or TA 

Word 2 = 048 X 458 + 00 = 2248 + 4000 = 42248 or D 

Word 3 = 0000 

Word 4 = 1000 (octal code for TAD) 

Note that the octal code for each character is always scaled by 
the Assembler so that the character is represented using six bits 
of a word. For example, ANSCII code for T is 324, it was trimmed 
to 24; A is 301, it was trimmed to 01, etc. Digits through 9 are 
scaled to the range 33 through 44. 



MACRO PSEUDO OPERATORS 



Pseudo-Op 

DECIMAL 
OCTAL 
PAUSE 
FIELD 



Description 

See PAL III 
See PAL III 
See PAL III 
See PAL III 



1 Bit of word 1 signifies a pseudo-op, bit 1 signifies an undefined symbol, 
bit of word 2 signifies a defined symbol. 
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jr acuu.cf-v-qj 

z 

I 

EXPUNGE 

FIXTAB 

DEFINE 

TEXT 
FLTG 

DUEL 

PAGE 

$ 






See PAL III 
See PAL III 
See PAL III and MACRO, sections on 

Symbol Table Alteration 
See PAL III and MACRO, sections on 

Symbol Table Alteration 
See MACRO, section on User Defined 

Macros 
See MACRO, section on Text Facility 
See MACRO, section on Floating Point 

Constants' 
See MACRO, section on Double Precision 

Integer Constants 
See MACRO, section on Origin Setting 
End of pass 



MACRO OPERATING PROCEDURES 

Assembler Output 



. 1 ^i-:_j _. 



MACJKU IS a two pass Assemoier wim an opuonai luixu pitss 
which produces an octal/ symbolic assembly listing. During the 
first pass, MACRO processes the source tape and places all sym- 
bol definitions and macro definitions in its symbol table and macro 
table, respectively. During the second pass, MACRO processes 
the source tape and punches the Binary Format Tape. At the end 
of pass 2, MACRO prints the symbol table (it is also punched if 
the 33 ASR punch is turned on). This punched table can be read 
by DDT. The third pass provides a listing of the generated octal 
code and the original source language. 

Versions of MACRO 

There are two versions of MACRO which differ with respect 
to their use of Input/Output equipment: the low speed version 
uses the 33 ASR reader for all input and the 33 ASR punch for all 
output; the high speed version uses the photoelectric reader for all 
input, the high-speed punch for all binary output, and the 33 ASR 
for printable output such as error printouts, symbol table listing 
and third pass assem.bly listing. 
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NOTE 

In the high speed version of MACRO; the 
high-speed punch may be used as the print- 
able output device by changing the contents 
of location 0004 to 0600. This is useful for 
long third pass listings, since the punched 
output from the high-speed punch can be ■ 
subsequently listed off-line. It is advised 
that this change not be made until pass 3, 
so that pass 1 and pass 2 error messages will 
come out on the 33 ASR. 

Operating Instructions 

1 . Load MACRO with the Binary Loader. 

2. Put the source tape in the reader. 

3. Set the switch register to 0200. 

4. Depress LOAD ADDRESS. 

5. Set switch options (see Table 13-1). 

6. Depress START. 

7. Turn on the 33 ASR reader (if using low speed version). 

8. When MACRO stops reading (after processing a PAUSE 
statement), place the next tape in the reader and depress 
CONTINUE. Repeat this step until all tapes have beea 
processed. 

9. When MACRO encounters the terminating character, dollar 
sign ($), it performs one of the following sets of events de- 
pending upon what pass has just been completed (proper 
operator intervention is then required): 



Pass 
Completed Events Operator Intervention 

1 Set up symbol table for use Turn on 33 ASR punch (in 
in pass 2. high speed version, symbol 

table is output via 33 ASR). 
Put source tape in reader, 
and proceed from step 2 of 
Operating Procedures 
above. 
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2 Terminate current a.sseni- a.^ If Tinge 3 is desired; '^in 
biy. Punch out page zero high speed version the con- 
constants, checksum, and tents of word 0004 could 
trailer code on binary tape, be altered at this point to 
Print and punch RUBOUT, change output devices) Go 
the alpha-numericaliy or- to step 2 of Operating Pro- 
dered symbol table, and cedures above. 

EOT code, a RUBOUT, , , „ _ . . , • , 

. „ „ b) It pass 3 is not desired: 

and trailer cofie. set no tor _' "^ _ . . 

^ lurn ott 33 ASR punch, 

^ ^" put next program to be as- 

assembled in the reader. Go 
to step 2 of Operating Pro- 
cedures, above. 

3 Terminate assembly listing. Turn off 33 ASR punch: 

put next program to be as- 
sembled in the reader; hit 
CONTINUE to enter pass 
1. 



Ti/t*.r<T>f\ c«7¥nrr^u niunrwrkTVC 

Switch up Result 

^ ,^„- ^.** .^*^w ^^^^^^^ »»,^ „_^»» j-v.„„ ^^ __-.^» — »„ ..„ ^^ p 

table. For example: if the previous assembly was ter- 
' minated during or at the end of pass 1, restarting 
MACRO with no switches up would cause pass 2 to 
be entered. MACRO initially starts at pass 1 . 

Restore symbol table to the permanent basic symbols 
and enter pass 1 . 

1 Enter pass 2. 

2 Enter pass 1 without erasing any previously defined 
symbols. 

3 Enter pass 3. During pass 3, MACRO outputs an octal/ 

is terminated before completion, either switch options 

assemblies. MACRO will output as much of the source 
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Switch Up Result 

statement (symbolic) as its internal storage capacity will 
allow. Because of the internal operations during the 
processing of macro statements, the symbolic output 
may be meaningless. 

10 The double precision integer and double precision float- 
ing point processors are deleted and may be used for 
storage of user defined symbols. This increases the size 
of the symbol table by 64io symbols. 

1 1 The macro processor and the number processors (above) 
are deleted and can be used for storage of user defined 
symbols. This increases the size of the symbol table 
by 125 10 symbols. 

NOTE: Switches 10 and 11 are sensed whenever pass 1 is entered. MACRO 
would have to be reloaded to handle subsequent programs that use macros, 
double precision integers, or floating point numbers. 

SUMMARY OF MACRO ERROR DIAGNOSTICS 

The format of the error messages is: 

ERROR CODE ADDRESS 

where ERROR CODE is a two character code which specifies the 
type of error, and ADDRESS is either the absolute octal address 
where the error occurred or the address of the error relative to 
the last symbolic label (if there was one) on that page. 

Assembly will continue or can be continued after all errors 
except SE (Symbol Table Exceeded). If an SE error occurs, the 
Assembler will halt and cannot be restarted. 

Error 

Code Meaning 

PE Current, Non-Zero Page Exceeded 

An attempt was made to override a literal with an in- 
struction, or override an instruction with a literal. This 
can be corrected by decreasing the number of literals 
on the page, or decreasing the number of instructions 
on the page. 

ZE Zero Page Exceeded 

Same as PE only with reference to page 0. 
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Code Meaning 

ID Illegal Redefinition of a Symbol 

An attempt was made to give a previously defined sym- 
bol a new value not via =. The symbol was not rede- 
fined (This is similar to the Duplicate Tag diagnostic 
of PAL III.) 

1 . * % ' : ? @ / were processed other than in a com- 
ment or a TEXT field. The character is ignored 

2. A non-valid character was processed. The computer 
halts with the illegal character displayed in the ac- 
cumulator. Assembly can be continued by putting 
the desired character in the switch register and de- 
pressing CONTINUE. 

IE Illegal Equals 

An equal sign was used in the wrong context. For ex- 
ample: 



A+B = C 



ine expression lu mc iCn ui mc equai ai^u is hvji. a 
single symbol. 

II Illegal Indirect 

An out of page reference was made, and a link could 
not be generated because the indirect bit was already 
set. For example: 

*200 
TAD I A 



PAGE 
A., CMA CLL 

LG Link Generated 

A warning message; a link was generated for an out-of- 
page reference at this address. For example: 

13-62 



Code 




Meaning 

*200 
TAD A 

• 










A^ 


• 
• 

PAGE 
CMA CLL 






will result in the following: 








Location 


Contents 




0200 

0377 


1777 
0400 



0400 7140 

SE Symbol Table Exceeded 

The symbol table overlaps the macro table or vice versa. 
Assembly is halted and cannot be continued. 

IM Illegal Format in a Macro Dejfinition 

The expression after the DEFINE pseudo-instruction 
does not comply with the macro definition position, or 
structural rules. For example: A macro name is refer- 
enced before the macro definition. 

US Undefined Symbol 

A symbol has been processed during pass 2 that was not 

defined by the end of pass 1 . 
MP Missing Parameter in a Macro Call 

An argument, called for by the macro definition, is 

missing. For example: ' 

DEFINE MAC A B 

<TAD A 

CIA 

DCA B> 

MAC SUM 

BE Two MACRO internal tables have overlapped. 

This situation can usually be corrected by decreasing 
the number of current page literals used prior to this 
point on the page. If the error persists, please contact 
the Small Computer Systems Programming Group at 
Digital Equipment Corporation for assistance. 
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4K PAL-D PROGRAMMING 

The 4K PAL-D Assembler is compatible with the PAL III As- 
sembler. It is also compatible with MACRO with respect to the 
following features: Boolean operators, linkage generation, literals 
and a text facility. 4K PAL-D does not have user defined macros, 
floating point constants, or double precision numbers. 

Before reading this section the reader should become familiar 
with the section on PAL III and read the pertinent sections of 
MACRO as indicated above. The following information is supple- 
mentary to that already rhentioned. 

A major difference between PAL III and 4K PAL-D is the way 
in which they recognize Memory Reference Instructions. In PAL-D 
permanent symbols may not be used in the address field of a 
memory reference instruction. PAL-D considers a memory refer- 
ence instruction to be defined as a permanent symbol followed by 
a space(s) or tab(s) with the address field permitted to be any 
valid expression not containing a permanent symbol. For example: 



A=1234 
FIXTAB 
TAD A 



will not work on 4K PAL-D. The example above would generate 
the code 1234 by inclusively ORing 1000 and 1234. 

LISTING CONTROL 

During pass 3, a listing of the source program is printed (or 
punched). The programmer can, however, control the output of 
his pass 3 listing by use of the pseudo-op XLIST. 

XLTST Those portions of the source program enclosed by 
XLIST will not appear in the pass 3 listing. 

FIELD PSEUDO-OP 

In addition to the information on the FIELD pseudo-op pro- 
vided in the section on PAL-III: when using PAL-D, use of the 
FIELD pseudo-op causes all literals to be punched. 
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PAL-D PSEUDO-OPERATORS 

Pseudo-Op Description 



FIELD 


See PAL III 


PAUSE 


See PAL III 


DECIMAL 


See PAL III 


OCTAL 


See PAL III 


Z 


See PAL III 


I 


See PAL III 


FIXTAB 


See PAL III 


EXPUNGE 


See PAL III 


TEXT 


See MACRO, section on Text Facility 


PAGE 


See MACRO, section on Origin Setting 


XLIST 


See 4K PAL-D, section on Listing Control 


$ 


End of Pass. 



4K PAL-D PROGRAM PREPARATION AND 
ASSEMBLER OUTPUT 

The information on PAL III Program Preparation and Assem- 
bler Output is applicable to PAL-D except as follows: 

and followed by a small amount of leader/trailer (200) code. The 
symbol table tape will be punched whether or not a listing is re- 
quested, and will appear either on the Teletype punch or on the 
high-speed punch output, depending upon the device being used. 

It is possible to terminate any pass of the assembly by typing a 
CTRL/P on the console Teletype. fP causes PAL-D to go on 
to the next pass of the assembly. As with the previous version of 
PAL-D, assembly can be terminated at any time by typing a 
CI R.L/C 

During the listing pass note that blank lines will remain in the 
listing and the form feed (214 ANSCII) character is ignored. 

The 4K PAL-D symbol table has room for 161 symbols in core 

as explained in the section about 4K PAL-D on the Disk Monitor 
o^steni iOiiowms. 

Following pass 2, the binary output can be loaded into core by 

♦u.^ r%;.,i, \Ai — :* ; c.,^*-,.^ t:h^^^,, t ^^a^^ n^A^^ nrco /c oil tV.T-o<» 

tiiv x-fiar%. J.VHJ1HHJ1 oj'Oicrii jjiiiai^ i^v/avj^^i. v.'iivivi xuu/u, cm. nixvw 

passes are automatically processed. 
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Under TSS/8 

Loading 4K PAL-D in a TSS/8 system is performed by the sys- 
tem manager as described in the System Manager's Guide. 

Assembling with 4K PAL-D under the TSS/8 Monitor requires 
no operator intervention between passes. The symbol table is printed 
at the end of pass 2 and the listing at the end of pass 3. The as- 
sembly can be terminated at any point by typing CTRL/C. Con- 
trol will revert from PAL-D to the TSS/8 Monitor which prints a 
period at the left-hand margin and waits for the next instruction 
from the Teletype. 

In order to run a PAL-D program on TSS/8 the user types the 
LOGIN command and his account number and password. He then 
creates his PAL-D program and saves it as a file using the Symbolic 
Editor program. When the program is ready to be run, PAL-D is 
brought into core. The user types: 

R PALD 



in reply to Monitor's period. PAL-D signals its presence by re- 
questing an input file name as follows: 



INPUT :TYPE2 



The user reply in this case was TYPE2, a user defined name for 
the source program to be assembled. 

PAL-D next requests the name of an output file: 

OUTPUT :BI!\F2 



The user response was BIN2, the name under which the as- 
sembled program will be stored. 

Optionally, the user can type the RETURN key to specify no 
output file. This is useful in debugging. A program can be cor- 
rected and reassembled any number of times with production of 
an output file postponed until a satisfactory version is achieved. 
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PAL-D's final query is whether the user wants a program listing, 
as follows: 

OPTION: 

There are two responses: N signifying No and RETURN key sig- 
nifying Yes. When it receives the last response, PAL-D reads in 
the user source program from disk and proceeds with the assembly. 
After assembly, PAL-D returns control to the Monitor which prints 
a period and waits for the user to supply the next command. 

The program can be run by calling the program into core to be 
run under the direction of the TSS/8 Monitor: 

.R TYPE2 

where the period was printed by TSS/8 Monitor and TYPE2 is 
the name of the output file in which the compiled binary program 
was stored. 



Under the Disk Monitor system 

Under the Disk Monitor System the user should first build the 
Disk Monitor if it is not present on the disk or DECtape, accord- 
ing to the instructions in the Disk Monitor System Manual, DEC- 
D8-SDAB-D. 

4K PAL-D is loaded into core as explained in the Disk Monitor 
System Manual using the Binary Loader. 

The Assembler is incorporated in the system by loading the 
paper tape into core using the disk Loader. The Assembler can be 
saved on the disk or DECtape. 

4K PAL-D can be saved on the system device as a system pro- 
gram. This is done by typing the following: 

•SAVE PALD!0-7577;6200 

where the period was printed by the Monitor. The user may also 
want to reserve space on disk for the symbol table by typing, for 
example: 

.SAVE .SYM: 0-437 75 
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The limits (0 through 4377) are arbitrary and determine the max- 
imum length of the symbol table. With the SAVE command 
shown, 4K PAL-D will reserve space for a totalof 737 symbols 
(161 of which are stored in core). The programmer can now type 
PALD to bring the Assembler into core "for use with symbolic 
source programs, where Monitor types the dot: 



.PALD 



PAL-D responds with a request for an output file by printing 

*OUT- 

The user selects the output device by typing one of the following: 

T: for the Teletype (low speed reader/punch) or 

R- for the high speed reader/punch, or 

S: name for output to the system device as file name 

PAL-D now prints: 

*IN- 

and waits for the user to select the input files. Up to five input files 
can be specified (for example: R:,R:, S: name, R:, R:). 

When PAL-D is satisfied that the input file(s) is valid, it will re- 
quest the third pass listing option by printing: 

*OPT- 

The user can type: 

T Meaning listing and symbols are to be produced on the 

Teletype, or 
R Meaning listing and symbols are to be produced on the 
high speed punch, or 
Carriage Meaning symbols only (any other character means no 
Return third pass is desired). 
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WHen tne nign-speeu puiiuii is> bcic*»xcu aa a usLiiig ijuvivs^, mw tu- 
phabetic symbol table produced at the end of pass 3 is also pro- 
duced on the high-speed punch. 

PAL-D will now proceed with the assembly, pausing only when 
user intervention is required (i.e., placing a new paper tape in the 
reader, turning on the punch, etc.). On these occasions, PAL-D 
will print an up-arrow (t) on the Teletype to indicate user in- 
tervention is require?d. When the user has performed the neces- 

£ ii 1 '::_ -«„^^T *^ ^^^r^niia iizi+Vi tVif> dCCf^-mKKr lip tvnp? 

Cf RL/P (which does not echo). 

When using the disk as an output device, the compiled binary 
is reaay lo oe luaucu loi caccuhuu iunv/wmg ^u.oj ^. 

The symbol table will be output at the end of pass 2 if the third 
pass has not been requested. If pass 3 is requested, PAL-D will 
follow the assembly listing with the user's symbol table in alpha-; 
betical order (in addition to the assembled binary output). 

Assembly can be terminated and control returned to the Monitor 
at any time by typing CTRL/C. When the assembly is complete, 
control will automatically be returned to the Monitor. 

SUMMARY OF 4K FAL-D ERROR DIAGNOSTICS 

PAL-D makes many error checks as it processes source lan- 
guage statements. When an error is detected, the Assembler prints 
an error message. The format of the error messages is 

ERROR CODE ADDRESS 

where ERROR CODE is a two letter code which specifies the type 
of error, and ADDP>.ESS is either the absolute octal address where 
the error occurred or the address of the error relative to the last 
symbolic tag (if there was one) on the current page. 

The programmer should examine each error indication to de- 
termine whether correction is required. 

4K PAL-D's error messages are listed and explained below. 



J^IJlOJl 



Code Explanation 

BJb iwo rJAi^-u ixiiexiiiii Lciuies nave uv»^xi£i^^j-'*^u iii^s 

situation can usually be corrected by decreasing the 
level of literal nesting or a number of current page liter- 
als used prior to this point on the page. 
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Error 

Code Explanation 

DE Systems device error — ^An error was detected when try- 

ing to read or write the system device, after three fail- 
ures, control is returned to the Monitor. 

DF Systems device full — The capacity of the systems device 

has been exceeded; assembly is terminated and control 
is returned to the Monitor. 

IC Illegal Character — ^An illegal character was encountered 

other than in a comment or TEXT field; the character 
is ignored and the assembly continued. 

ID Illegal redefinition of a symbol — An attempt was made 

to give a previously defined symbol a new value by 
other means than the equal sign; the symbol was not 
redefined. 

IE Illegal equals — An equal sign was used in the wrong 

context. Examples: 

TAD A+=B 
A+B = C 

The expression to the left of the equal sign is not a 
single symbol or, the expression to the right of the equal 
sign was not previously defined. 

II Illegal indirect — An off-page reference was made; a 

link could not be generated because the indirect bit was 
alreadv set. 



Example: 



+200 
TAD I A 



PAGE 
A, 7240 



ND The program terminator, $, is missing (with TSS/8 

only). 
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PE Current non-zero page exceeded — An attempt was made 

to: 

1 . Override a literal with an instruction, or 

2. Override an instruction with a literal; this can be 

corrected by 

(a) Decreasing the number of literals on the page, or 

(b) Decreasing the number of instructions on the 
page. 

PH Phase error^ — PAL-D has received input files in an in- 

correct order; either program terminator ($) is missing 
or misolaced. Assemblv is terminated and control is 
returned to the Monitor. 

SEI Symbol table exceeded — Assembly is terminated and 

control is returned to the Monitor; the symbol table may 
be expanded to contain up to 1184 user symbols by 
saving a file named .SYM on the system device. 

US Undefined symbol — A symbol has been processed dur- 

ing pass 2 that was not defined before the end of pass 1 . 

LE Page exceeded — Same as PE except with reference 

to page 0. 
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8K PAL-D PROGRAMMING 

The 8K PAL-D Assembler is similar to 4K PAL-D. The reader 
is advised to learn the 4K PAL-D Assembler by studying the 
appropriate sections of Chapter 13, then return to this section to 
learn the additional features of 8K PAL-D. These additional fea- 
tures include assembler directives which permit operation of the 
Assembler to be controlled by the source program, page control, 
and the ability to expand to run in 1 2K of core. 

CHARACTER SET 

In addition to the characters allowed in 4K PAL-D, the follow- 
ing characters are given a special significance in 8K PAL-D: < > 

The angle brackets (<>) define the bounds of a conditional 
statement. The user should be especially cautious not to use angle 
brackets within a comment in any program containing a conditional 
assembly statement. 

PSEUDO-OPERATORS 

In addition to the pseudo-operators allowed in 4K PAL-D, the 
following pseudo-operators are unique to 8K PAL-D: 

RESERVING FREE STORAGE 

ZBLOCK n 

Where n is an integer, ZBLOCK causes the Assembler to reserve 
n words of memory containing zeros, starting at the word indicated 
by the current location counter. 

CONDITIONAL ASSEMBLY 

IFDEF symbol <statements> 

If the symbol indicated is previously defined, assemble the 
statements contained in the angle brackets. If undefined, ignore 
these statements. Any number of statements can be contained in 
the angle brackets and may consist of several lines of code. The 
format of the IFDEF statement requires a single space before and 
after the symbol. 

IFZERO expression <statements> 

If the evaluated (arithmetic or logical) expression is equal to 
zero, assemble the statements contained within the angle brackets; 

14-5 



if the expression is non-zero, ignore these statements. Any number 
of statements can be contained in the angle brackets and may con- 
sist of several lines of code. The format of the IFZERO statement 
requires that the expression not contain any imbedded spaces and 
must have a single space preceding and following it. 

BINARY OUTPUT CONTROL 

XT/-M3T TXir^XJ 

Upon encountering this statement the Assembler continues to 

^^„^_„1,1-, *l,o ^rsAa Ki^t ^aoc<=>c t>ir>c»rx7 oiitnnt 

iiiNPurN«-n 

This statement causes the Assembler to resume (or continue) 

binary output. 

These two pseudo-operators are put into the source program 
and are ignored until pass 2 at which time they direct the Assem- 
bler to delete some section of code from the final binary punched 

tape. 

For example, these pseudo-operators could be used where 
several programs have the same contents on page zero. When 
these programs are to be loaded and executed together, only one 
page zero need be punched. 

PAGINATION OF OUTPUT LISTINGS 

The EJECT command causes the listing to jump to the top of 
the next page. The 8K PAL-D Assembler counts output lines and 
will format the user's program into neat, even pages with a page 
eject every 55 lines. If the user requires more frequent paging, 
he should use the EJECT pseudo-operator. A FORM FEED 
character within the source program will also cause a page eject. 

The pagination process v/ithin the 8K PAL-D Assembler causes 
an output 01 carnage reiuiii/mic iccu pmis lOi mv ^^ ^^^^^ -~— 
type. For users with the 35 ASR Teletype who desire to output 
a FORM FEED character directly, changes shoul^i i/C mav^e ..o 
modify the FORMI subroutine found in the 8K PAL-D listing. 
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LOADING AND OPERATING PROCEDURES 

Saving 8K PAL-D 

The 8K PAL-D Assembler is supplied on binary coded paper 
tape. It is loaded using the Binary Loader as explained in Appendix 
C2. 

The 8K PAL-D Assembler may be saved on the system device as 
a system program. This is done by typing the following SAVE 
instruction: 

• SAVE PALR ! f\-5 111 j 6f^?\(^-^ 511 ; 2m 

The Assembler is now saved as a system program. The programmer 
may now type PALS, which brings the assembler into core for 
use with symbolic source programs. 

Third Pass Listing Option 

Output devices are the same for 8K PAL-D as for 4K PAL-D. 
When 8K PAL-D requests the input file(s), the user may select up 
to ten (10) input files. Valid input devices for 8K PAL-D are as 
follows: 

Device Designator Device 

T: Teletype 

R: High-speed reader/punch 

S: name DF 32 disk 

Sn: name RF 08 disk 

DO: name through D7: name DECtape 

Symbol Table 

The symbol table for 8K PAL-D provides space for 896 (deci- 
mal) user defined symbols. When the SE (symbol table exceeded) 
error message occurs, assembly is terminated and control is re- 
turned to the Monitor. The user file .SYM is not used by 8K 
PAL-D. 

12K VERSION OF 8K PAL-D 

The 8K PAL-D Assembler must be reassembled to run in 12K 
of core. The 1 2K version has a larger symbol table, but assembles 
at a slower pace. The changes to be made are documented on page 
1 of the 8K PAL-D listing. 
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SABR PROGRAMMING 

SABR (Symbolic Assembler for Binary Relocatable programs) 
is an advanced, one-pass assembler producing relocatable binary 
code with automatically generated core page and memory field 
linkages. Tt supports an extensive list of pseudo-operators which 
provide, among other facilities, external subroutine calling with 
argument passing and conditional assembly. 

SABR controls a library of subprograms, any of which can be 
assembled into user programs. In an optional second pass, SABR 
produces an octal/symbolic listing of assembled programs. 

Relocatable programs assembled with SABR are loaded with the 
8K Linking Loader. Both SABR and Linking Loader are incor- 
porated in the 8K Fortran compiler (see Chapter 15). SABR 
functions as the second pass of the compiler, and linking loader 
is included as part of the Fortran Operating System. 

With the exception of its pseudo-operators, SABR is similar, 
from a user's standpoint, to the PAL-TII assembler which produces 
location dependent (non-relocatable) binary coding. Introduction 
to Programming — Volume 1 of this set — contains an elementary 
approach to assembly language programming in Chapters i-5. 
Concepts presented in Chapter 13 of this volume are also pre- 
requisite to the use of SABR. 

SABR can be run on any PDP-8/I, -8/L, -8, or -8/S computer 
(or on the PDP-5 if it has the extended memory control modifica- 
tion) with at least 8K of core storage and a Teletype. A high speed 
paper tape reader/punch is recommended. 

Statements 

SABR symbolic programs are written as a sequence of state- 
ments and are usually prepared on the Teletype, on line, with the 
aid of the Symbolic Editor program. SABR statements are virtually 
format free. Each statement is terminated by typing the RETURN 
key. (Editor automatically provides a line feed). Two or more 
statements can be typed on the same line using the semicolon as a 
separator. 

A statement line is composed of one or all of the following ele- 
ments: label, operator, operand and comment, separated by spaces 
or tabs (labels require a following comma). The types of elements 
in a statement are identified by the order of appearance in the line 
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orirl Vi\? thf^ cf^naratina nr dplimifina character which follows or 

precedes the element. 

Statements are written in the general form 

label, operator operand /comment (preceded by slash) 

SABR generates, one or possibly more, machine (binary) in- 
structions or data words for each source statement. 

An input line m.ay be up to 72io characters long, including 
spaces and tabs. Any characters beyond this limit are ignored. 

The RETURN key (CR/LF) is both a statement and a line 
*f^r-m\ry^f(yr Tbp Qpmicoior" mav he ii«ed to terminate an instruction 
without terminating a line. If, for example, the programmer wishes 
to write a sequence of instructions to rotate the contents of the 
accumulator (AC) and link (L) six places to the right, it might look 
like this: 



RTR 
RTR 
RTR 



But, with the semicolon, the programmer may place all three 
RTR's on a single line, separating each RTR with a semicolon and 
terminating the line with the RETURN key. The above sequence 
of instructions could then be written 

RTR; RTR; RTR (terminated with the RETURN key) 

This format is particularly useful when creating a list of data: 



LI ST> 20; 50; -30; 62 



0200 


0020 


0201 


00 50 


0202 


??50 


0203 


0062 



Null lines may also be used to format program listings. A null 
line is a line containing only a carriage return and possibly spaces 
or tab* '•inf-K lines a""ear as blank lines in the Drogram listing. 






The Character Set 

ALPHABETIC: 

In addition to the letters A through Z, the following are con- 
sidered by SABR to be alphabetic: 

[ left bracket 

] right bracket 

\ back slash 

t up arrow 



NUMERIC: 



SPECIAL CHARACTERS: 



0-9 



/ 



# 



I 



Comma 


delimits a symbolic address label 


Slash 


indicates start of a comment 


Left parenthesis 


indicates a literal 




(D indicates numeric literal is 




decimal; 




(K indicates numeric literal is 




octal 


Quote 


precedes an ANSCII constant 


Minus sign 


negates a constant 


Number sign 


increases value of preceding sym- 




bol by one 


RETURN 


terminates a statement 


(carriage return) 




Semicolon 


terminates an instruction 


LINE FEED 


ignored 


FORM FEED 


ignored 


SPACE 


separates and delimits items on 




the statement line 


TAB 


same as space 


RUBOUT 


ignored 



All other characters are illegal except when used as ANSCII 
constants following a quote ("), or in comments or text strings. 

Legal characters used in ways different from the above, and all 
illegal characters, cause the error message C (Illegal Character) to 
be printed by SABR. 
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Labels 

A label is a symbolic name or location tag created by the pro- 
grammer to identify the address of a statement in the program. 
Subsequent references to the statement can be made merely by 
referencing the label. If present, the label is written first in a state- 
ment and terminated with a comma. 



0200 0000 SAVE, 

0201 1200 ABC, TAD SAVE 



SAVE and ABC are labels referencing the statements in location 

/,UU aiiu U^Ul, iCbpecuvciy. 

Operators 

An operator may be one of the following: 

a. A direct or indirect memory reference instruction 

b. An operate or lOT microinstruction (Appendix B2 gives a 
summary of microinstructions) 

' c. A pseudo-operator 

All iDi-ste'nfici] S A HU rir>ArcifrArc arp> lictAn in Ar<rtf»nniY A/ 

Operands 

An operand can be a user-defined address symbol, a literal or a 
numeric constant, 

SYMBOLS 

Symbols are composed of legal alphanumeric characters. There 
are two major type of symbols, permanent, and user-defined, and 
there are variations within each major type. A symbol is delimited 
by a non-alphanum.eric character. 

PERMANENT SYMBOLS. Permanent symbols are predefined 
and maintained in SABR's permanent symbol table. They include 
all of the basic instructions and pseudo-operators in Appendix A2. 
These sym/bois may be used without prior definition by the user. 
The OPDEF and SKPDF pseudo-operators are used to define 
instruction operators not included in the permanent symbol table. 

USER-DEFINED SYMBOLS. A user-defined sym.hol is a string 



non-alphanumeric character. User-defined symbols must conform 
to the following rules: 

a. The characters must be legal alphanuriierics— 

ABCD . . . XYZ and 0123456789. 

b. The first character must be alphabetic. 

c. Only the first six characters are meaningful. A symbol 
such as INTEGER would be interpreted as INTEGE. 
Since the symbols GEORGE 1 and GEORGE2 differ only 
in the seventh character, they would be treated as the same 
symbol: GEORGE. 

d. A user-defined symbol cannot be the same as any of the 
predefined permanent symbols. 

e. A user-defined symbol must be defined only once. Sub- 
sequent definitions will be ineffective and will cause SABR 
to type the error message M (Multiple Definition). 

A symbol is dejfined when it appears as a symbolic address label 
or when it appears in an ABSYM, COMMN, OPDEF or SKPDF 
statement (see Pseudo-Operators). No more than 64 different user- 
defined symbols may occur on any one core page. 

EQUIVALENT SYMBOLS. When an address label appears alone 
on a line — with no instruction or parameter — the label is assigned 
the value of the next address assembled. 

TAG1> 

TAG2^ 30 

TAG3> 

TAG 1 and TAG2 are equivalent symbols, in that they are as- 
signed the same value. Therefore, a TAD TAGl will reference the 
data at TAG2. TAG3, however, is not equivalent to TAG2. TAGS 
would be defined as 1 greater than TAG2. 

SYMBOL TABLE FLAGS 

Symbols are listed in alphabetic order at the end of the assembly 
pass 1 with their relative addresses beside them. The following 
flags are added to denote special types of symbols: 

ABS The address referenced by this symbol is absolute. 

COM The address is in COMMON. 
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OF ifte symDoi is an operator. 

EXT The symbol is an external one and may or may not 

be defined within this program. If not defined there 
is no difficulty: it is defined in another program. 

UNDF The symbol is not an external symbol and has not 
been defined in the program. This is a programmer 

arrnr Mn /^arMf^r Hiqcynryctir ran hf criven hf.raU'Jf it 

is not known that the symbol is undefined until the 
end of pass 1. A location is reserved for the unde- 
fined symbol, but nothing is placed in it. 

LITERALS 

The use of literals is a special and convenient way of generating 
constant data in a program. Literals are normally used by TAD 
and AND instructions, as in the following' examples: 



0200 


0376 


A J 


AMD 


(777 


0201 


1375 




TAD 


(-50 


0202 


1374 




TAD- 


("C 


• 
* 

0374 


30 3 








0375 


7730 








0376 


0777 









A literal is always a numeric or ANSCII constant and must be 
preceded by a left parenthesis. The value of the literal will be as- 
sembled in a table near the end of the core page on which the in- 
struction referencing it is assembled. The instruction itself will 
be assembled as an appropriate reference to the location where the 
numeric value of the literal is assembled. Literals may not be 
referenced indirectly. 

The current numeric conversion mode can be changed on a 
purely local basis for a literal by inserting a D for decimal or a K 
for octal between the left parenthesis and the constant. 

(D32 becomes 0040 (Octal)) 
(K-32 becom^es 7745 (octal)) 

This usage does not alter the prevailing permanent conversion 
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mode (initially octal but controllable with the DECIM and OCTAL 
pseudo-operators). 

A literal may also be used as a parameter (i.e., with no opera- 
tor). In this case the numeric value of the literal is assembled as 
usual in the literal table near the end of the core page currently 
being assembled, and a relocatable pointer to the address of the 
literal is assembled in the location where the literal parameter 
appeared. 

0200 0376 01 A:, (20 



0376 0020 

This feature is intended primarily for use in passing external 
subroutine arguments with the ARG pseudo-operator. 

CONSTANTS 

Constants are of two types: numeric and ANSCII. ANSCII con- 
stants are used only as parameters. Numeric constants may be used 
as parameters or as operand addresses. 

0200 1412 TAD I 12 



Constant operand addresses are treated as absolute addresses, 
just as a symbol defined by an ABSYM statement. References to 
them are not generally relocatable. Therefore, they should be used 
only with great care. The primary use of constant operand ad- 
dresses to reference locations on page (See page 14-52 for 
free locations on page of each field). All constant operand ad- 
dresses are assumed to be in the field into which the program is 
loaded by the Linking Loader. 

Constants may not be added to or subtracted from each other 
or from symbols. 

NUMERIC CONSTANTS 

A numeric constant consists of a single string of from one to 
four digits. It may be preceded by a minus sign (— ) to negate the 
constant. The digit string will be interpreted as either octal or 
decimal according to the latest permanent mode setting by an 
OCTAL or DECIM pseudo-operator. Octal mode is assumed at 

14-15 



the beginning of assembly, ihe digits 8 and 9 must not appear 
in an octal string. 



0200 
0201 

0202 



5020 
7575 

0120 



50 20 
-203 

DEC IM 
80 



ANSCIl CONSTANTS 

Eight-bit ANSCIl values may be created as constants by typing 
the ANSCIl character immediately following a double quotation 
mark ("). A mJnus sign may be used to negate an aiphaberic con- 
stant. The m.inus sign must precede the quotation mark. 



200 
0201 
0202 



0273 
7477 

0207 



A, 
-"A 



/-301 

/BELL FOLLOWS" 



The following characters are illegal as alphabetic constants: 
carriage return, line feed, form feed and rubout. 

r/VKAivic 1 JCKs 

An operand on a line with no operator is treated as a parameter. 
A parameter may be a numeric constant, a literal, or a user-defined 
address symbol. 



0200 


0200 


0201 


7460 


0202 


0315 


0203 


0176 


1000 


0576 


1001 


1375 



ABC;. 



POINT.Rj 



START 



200^-320; 



P GO ADR 

REORG 1000 

TAD I POIMTR 

TAD C3 



"M 



Comments 

A programmer may add notes to a statement following a slash 

but are useful in interpreting the program listing for later analysis 

^^A A^u,,^^',nf^ Vlni-ir-a lirxic r>f ^nmmAntc mav he nrpsPTit in the 

program. 
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None of the special characters or symbols have significance 
when they appear in a comment, 

/THIS IS A COMMENT LINE. 

/THIS TOO. TAD;CALL;#"-2C+=r 

^' TAD SAVE /SLASH STARTS COMMENT- 

INCREMENTING OPERANDS 

Because SABR is a one-pass assembler and also because it 
sometimes generates more than one machine instruction for a 
single user instruction, operand arithmetic is impossible. State- 
ments of the form, 

TAD TAG+3 

TAD LIST-LIST2 

JMP .+6 

are illegal. However, by appending a number sign to an operand 
the user can reference a location exactly one greater than the 
location of the operand (the next sequential location): TAD LOC# 
is equivalent to the PAL language statement TAD LOC+1. 



0200 


0020 


LOC> 


20 








0201 


0030 




30 








0202 


1200 


START.. 


TAD 


LOC 


/GET 


20 


0203 


1201 




TAD 
PAGE 


LOC# 


/GET 


30 


0400 


0200 


A, 


LOC 








0401 


0201 


B, 


LOC# 









In assembling #-type references SABR does not attempt to 
determine if multiple machine code words are generated at the 
symbolic address referenced. 

START, TAD I ' LOC /LOC IS OFF-PAGE 

NOP /USER HOPES TO MODIFY 



TAD (7500 /SMA 
DCA START* 

In the example above the user wishes to change the NOP in- 
struction to an SMA. However, this is not possible because TAD 
I LOC will be assembled as three machine code words; if START 
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is at 0200, the NOP will be at 0203. The SMA will be inserted at 
0201, thus destroying the second word of the TAD I LOC execu- 
tion. 

To avoid this error, the user should carefully examine the as- 
sembly listing before attempting to modify a program with #-type 
references. In the previous example the proper sequence is: 



STARTj 
VAR* 



TAD I 



LOC 



TAD 
DCA 



(7500 
VAR 



, i lie 



-LL c'mr^ foofiit-^ ic intenrl^rl nrimarilv fnr maninulatms 
DUMMY variables when picking up arguments from external sub- 
routines and returning from external subroutines (see Picking up 
Subroutine Arguments). 

PSEUDO-OPERATORS 

Table 14-1 lists all the pseudo-operators available in SABR, 
whether used as a free-standing assembler, or in conjunction with 
the Fortran compiler (see 8K Fortran, Chapter 15). The pseudo- 
r»«p^otors sre rqtfonrizeri aid exolained in the followins para- 

^1. dp 11 3. 



Mnemonic 



ABYSM 

ARG 

BLOCK 

CALL 

COMMN 

CPAGE 

DECLM 

DUMMY 

EAP 

END 

ENTRY 

FORTR 



Table 14-1, 
SABR Pseudo-0"erator§ 



Code 



Operation 



Direct Absolute Symbol Definition 
Argument for Subroutine Call 
Reserve Storage Block 
Call External Subroutine 
Common Storage Definition 
Check if Page Will Hold Data 
Decimal Conversion 
Dummy Argument Definition 

nmei /\uiuniiiuc raging iviuus^ 

End of Program 

Define Program Entry Point 

Assemble FORTRAN Tape 
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Table 14-1. (Cont.) 



Mnemonic 


Code 


Operation 


IF 




Conditional Assembly 


LAP 




Leave Automatic Paging 


OCTAL 




Octal Conversion 


OPDEF 




Define Non-Skip Operator 


PAGE 




Teiniinate the Page 


PAUSE 




Pause for Next Tape 


REORG 




Terminate Page and Reset Origin 


RETRN 




Return from External Subroutine 


SKPDF 




Define Skip-Type Operator 


TEXT 




Text String 




Floating- 


-Point Accumulator 


ACH 


20* 


high-order word 


ACM 


21* 


middle word 


ACL 


22* 


low-order word 



* The floating point accumulator is in field 1. 



Assembly Control 



END 



PAUSE 



Every program or subprogram to be assembled 
must contain the END pseudo-op as its last line. 
If this requirement is not met, an error message 
(E) is given. 

The PAUSE pseudo-op causes assembly to halt. 
It is designed to allow the user to break up large 
source tapes into several smaller segments. To do 
this, the user need only place a PAUSE statement 
at the end of each section of this source except the 
last. Then when assembly halts at a PAUSE, he 
may remove the source tape just read from the 
reader and insert the next one. Assembly may then 
be continued by pressing the console CONTinue 
switch. 



WARNING 

The PAUSE pseudo-op is designed specifi- 
cally for use at the end of partial tapes and 
should not be used otherwise. 

14-19 



DECIM 



OCTAL 



The reason for this is that the reader routine may 
have read data from the paper tape into its buffer 
that is actually beyond the PAUSE statement. 
Consequently, when CONTinue is pressed after 
the PAUSE is found by the line interpreting rou- 
tine, the entire content of the reader buffer fol- 
lowing the PAUSE is destroyed, and the next tape 
begins reading into a fresh buffer. Thus, if there 
is any meaningful data on the tape beyond the 
PAUSE statement, it will be lost. 
Initially the numeric conversion mode is set for 
octal conversion. However, if the user wishes, he 
may change it to decimal by use of the DECIM 
pseudo-op. 

If the numeric conversion mode has been set to 
decimal, it may be changed back to octal by use 
of the OCTAL pseudo-op. 

No matter which conversion mode has been per- 
manently set, it may always be changed locally 
for literals by use of the (D or (K syntax described 



earner. 








0200 


0320 


START 


320 
DECIM 


0201 


500 




320 


0202 


0377 


01 


CK320 




1 i^ti^r^ 




51 2 

OCTAL 


0204 


0512 




512 


0203 


0376 


01 


CD512 


0206 


0320 




320 



END 



0376 
0377 



1000 
320 



TAT) 



1 lie it&sciiiuAer IS inii-iaiiy o^i lui ciutwiuttti*.- g^ix^^i 



nri. 



f\ r\ CCP'T 



:i+ -l-ViT- on+rf^motir* CKC».r\(^f<x^ 



tion of jumps to the next core page when the page 

1 • 1-IICTn- ^T^ "I"' \ 1-.^— . 

PAGE or REORG pseudo-ops are encountered. 
LAP (Leave Aulornatic Paging) pseudo-op. 
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EAP 



PAGE 



REORG 



If the user has previously suppressed the auto- 
matic paging feature, it may be restored to op- 
eration by use of the EAP (Enter Automatic 
Paging) pseudo-op. 

The PAGE pseudo-op causes the curreflt core 
page to be assembled as is. Assembly of succeed- 
ing instructions will begin on the next core page. 
No argument is required. 

The REORG pseudo-op is similar to the PAGE 
pseudo-op, except that a numerical argument 
specifying the relative location within the sub- 
program where assembly of succeeding instruc- 
tions is to be§in must be given. A REORG below 
200 may not be given .A REORG should always 
be to the first address of a core page. If a REORG 
address is not the first address of a page, it will 
be converted to the first address of the page it 
is on. 



0200 


7200 


START:, 


CLA 


0400 


7040 




PAGE 
CMA 


1000 


7041 




REORG 
CIA 



1000 



CPAGE The CPAGE pseudo-op followed by a numerical 

argument N specifies that the following N words of 
code* must be kept together in a single unit and 
not be split up by page escapes and literal tables. 
If the N words of code will not fit on the current 
page of code, the current page is assembled as if a 
PAGE pseudo-op had been encountered. The N 
words of code will then be assembled as a unit on 
the next core page. 

NOTE 

N must be less than or equal to 200 (octal) 
in nonautomatic paging mode or less than or 
equal to 176 octal in automatic paging mode. 

* Normally data. However, if these N words are instructions, for example 
a CALL with arguments, it is the user's responsibility to count extra 
machine instructions which must be inserted by SABR. 

14-21 



STARTj. cla 

LAP /INHIBIT PAGE ESCAPE 

CPAGE 200 /CLOSES THE 
NAMEl /CURRENT PAGE 
NAMES /& ASSEMBLES THE 
/NEXT PAGE= 

IF The conditional pseudo-op, IF, is used with the 

following syntax: 

IF NAMEj^ 7 



The action of the pseudo-op, so given, is to iirsi 
determine whether the symbol NAME has been 
previously defined. If NAME is defined, the 
pseudo-op has no effect. If NAME is not defined, 
the next seven symbolic instructions (not counting 
null lines and comment lines) will be treated as 
comments and not assembled. 



/ABSYM NAME 
IF NAME-? 


176 

2 


/THE NEXT LINE 


TO ! 




CLL RTL 


/ASSEMBLED WILL 


, BE 



[iJ-iLi ' LJ\^in. iMt\j -^ 

/IF THE SLASH BEFORE "ABSYM NAME 176" IS 
/REMOVED, THE "CLL RTL" AND "RAL" WILL 
/BE ASSEMBLED. 

DCA LOG 



Normally the symbol referenced by an IF state- 

niCHt SilUUlU UC- WltllVi evil t4iiUwiiixw\a 5jxii»-/v/i v^A fc* 

symbol defined by an ABSYM statement. If this 
is done, the situation mentioned below cannot 
occur. 

WARNING 

In a situation such as the following, a special 






^ - %ntf»q 

i.Wdi-1 iVi-A'i-^Ai t4.|-'|_i'Aiw3. 



NAME J 



IF NAME J 






The restriction is that if the line NAME, hap- 
pens to occur on the same core page of instruc- 
tions as the IF statement, then, even though it is 
before the IF statement, NAME will not have been 
previously defined when the IF statement is en- 
countered, and on the first pass (though not. in the 
listing pass) the three lines after the IF statement 
will not be assembled. The reason for this is that 
location tags cannot be defined until the page on 
which they occur is assembled as a unit. 



Symbol Definition 



ABSYM 



OPDEF 
SKPDF 



An absolute core address may be named using the 
ABSYM pseudo-op. This address must be in the 
same core field as the subprogram in which it is 
defined. The most common use of this pseudo-op 
is to name page zero addresses not used by the 
operating system. These addresses are listed on 
page 14-52. 

Operation codes not already included in the sym- 
bol table may be defined by use of the OPDEF or 
SKPDF pseudo-ops. Non-skip instructions must 
be defined with the OPDEF pseudo-op and skip- 
type instructions must be defined with the SKPDF 
pseudo-op. 

Examples of ABSYM, OPDEF and SKPDF syn- 
tax: 



ABSYM 


TEM 


177 


/PAGE ZERO ADDRESSES 


ABSYM 


AX 


10 




OPDEF 


DTRA 


6761 


/A rCON-SKIP INST.R. 


SKPDF 


DTSF 


6771 


/SKIP-TYPE mSTRUCTIONS 


SKPDF 


SMZ 


7540 





NOTE 

ABSYM, OPDEF and SKPDF definitions 
must be made before they are used in the 
program. 
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CUiViiviJN 1 ne v^vjiviivii-N pseuuo-up is useu to name luca- 

tions in field 1 as externals so that they may be 
referenced by any program. If any COMMN state- 
ments are used, they must occur at the beginning 
of the source, before everything else including 
the ENTRY statement. COMMON storage is al- 
ways in field 1 and is allocated from location 0200 
upwards. Since the top page of field 1 is reserved, 

iiu iiiuic man jotu^o vvunaa «ji- v^v/ivxiTiv^i^ sLijio-gv 

may be defined. 

A COMMN statement normally takes a symbolic 

address label, since storage is bemg allocateu. 

However, COMMON storage may be allocated 

without an address label. 

A COMMN statement always takes a numerical 

argument which specifies how many words of 

COMMON storage to be allocated; however, a 

argument is allowed. A COMMN statement 

with argument allocates no COMMON storage; 

it merely defines the given location symbol at the 

next free COMMON location. 

The syntax of the COMMN statement is shown 



belov/. 






A, 


COMMN 


20 


Bj 


COMMN 


110 




COMMN 


300 


c 


COMMN 





D^ 


COMMN 


10 




ENTRY 


SUBRUT 



In this example 20 words of COMMON storage 
are allocated from 0200 to 0217, and A is defined 
at location 0200. Then, 10 words are allocated 

frr^rr, AOOA tr. 0797 and n ic rlf'finpri at 0970 

Notice that if A is actually a 30 word array, this 

1^ .t~„ 13 / 1 ^ „,;+u A/">i\ 

The example continues by allocating COMMON 
storage from 0230 to 0527 with no name being 

aiii^iiCu tO tiiia uiOCiS-. i iiv./ii x\j wuiua aiu ai 
-< ^ j^ ji 



located from 0530 to 0537 with both C and D 
being defined at 0530. 

Data Generating 

BLOCK The BLOCK pseudo-op given with a numerical 

argument N will reserve N words of core by 
placing zeros in them. This pseudo-op creates 
binary output, and thus may have a symbolic 
address label. 

Before the N locations are reserved, a check is 
made to see if enough space is available for them 
on the current core page; If not, this page is as- 
sembled and the N locations are reserved on the 
next core page. The action here is similar to that 
of the CPAGE pseudo-op. Similar restrictions on 
the argument apply. 



/EXAMPLE 'OF HOW LARGE BLOCK STORAGE 

/MAY BE ACHIEVED WITHIN A SUBPROGRAM AREA 

LAP /INHIBIT PAGE ESCAPES 

BLOCK 200 -/RESERVE 500 

BLOCK 200 '/(OCTAL) LOCATIONS 

BLOCK 100 

EAP /RESUME NORMAL CODING 



As a special use, if the BLOCK pseudo-op is used 
with a location tag (but with no argument or a 
zero argument), no code zeros are assembled; in- 
stead the symbolic address label is made equiv- 
alent to the next relative core location assembled. 
(This is equivalent to using a symbolic address 
label with no instruction on the same line.) 



LIST^ 


BLOCK 


3 


/ASSEMBLES AS 
/3 ZEROS WITH 
/"LIST" DEFINED 
/AT THE 1ST LOCATION 


NAMEU 


BLOCK 




/DEFINES NAME1= 


NAME2> 


BLOCK 





/NAME2=NAME3= 


NAME3^ 






/NAME4 


NAME 4^ 


BLOCK 


2 
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The TEXT pseudo-op is used to obtain packed 
six-bit ANSCII text strings. Its function and use 
are almost exactly the same as for the BLOCK 
pseudo-op except that instead of a numerical ar- 
gument, the argument is a text string. In partic- 
ular, a check is made to be sure that the text 
string will fit on the current page without being 
interrupted by literals, etc. 

The text strin? argument must be contained on 
the same I'ne as the TEXT pseudo-op. Any print- 
ing character may be used to delineate the text 
strin». This character must appear at both the be- 
ginning and the end of the string. Carriage return, 
line feed and form feed are illegal characters 
within a text string (or as delineators). All char- 
acters in the string are stored in simple stripped 
six-bit form. Thus, a tab character (ANSCII 211) 
will be stored as an 11, which is equivalent to the 
coding for the letter I. In general, characters out- 
side the ANSCII range of 240-337 should not be 
used. 



0200 


9405 


0201 


3024 


0202 


400 5 


0203 


3001 


0204 


1520 


0205 


140 5 


0206 


40 61 


0207 


6263 


0210 


5273 


021 1 


7700 



TAGj 



lXT 



/TEXT EXAMPLE 123*^?/ 



EXTERNAL SUBROUTINE PSEUDO-OPERATORS 

SABR and the linking Loader utilize CALL, ARG, ENTRY, 
DUMMY and RETURN pseudo-ops for calling external subpro- 
grams, passing arguments among them and returning from them. 
COMMON storage may also be utilized for this purpose. 

CALL and ARG 

A CALL statement consists of the CALL pseudo-operator fol- 
lowed bv two indicators; the first a one or two-digit number (64io 



maximum) indicating the number of arguments to be passed to the 
subroutine; the second, separated from the first by a comma, is 
the symboHc name of the subroutine entry point. 

ARG statements consist of an ARG pseudo-operator symbol 
followed by one of the arguments to be passed. One ARG state- 
ment must be coded for each argument. ARG is used only in con- 
junction with CALL. 

In the following example the main program (or a subroutine) 
calls a subroutine named SUBR, and supplies two arguments. 



TAC 


CALL 


.2>SUBR 


Nl> 


ARG 


(50 


N2* 


ARG 


LOCATN 


ETC^ 


• • • 





The above instructions are assembled as follows: 



CPAGE 6 /MAKE SURE THE FOLLOWING 

/2N+2 WORDS WILL FIT 
/ON THE CURRENT CORE PAGE. 

TAC JMS LINK /CALL THE CALL LINKAGE ROUT 
020X (06) /WHERE 2=THE NUMBER OF 

/ARGUMENTS AND X=THE 
/LOCAL NUMBER OF THE 
/SUBPROGRAM BEING CALLED 
/VIZ./ SUBR. 

Nl> CDF CUR(05) /FIELD ADDRESS OF ARGUMENT 

/IN FORM OF CDF INSTRUCTION 
POINTER /ADDRESS IN THE LITERAL 

/TABLE WHERE THE 50 IS 
/ASSEMBLED. 

N2> CDF CUR OR CDF10 /FIELD OF THE ARGUMENT 

/DEPENDING ON WHETHER IT 
/IS OR IS NOT IN COMMON. 
LOCATN /ADDRESS OF ARGUMENT 



When a subprogram is referenced in a CALL statement, the 
Run-Time Linkage Routine LINK executes the transfer to the 
subprogram. It assumes that the entry point to the program is a 
two-word block. Into the first word of this block it places the 
number of the field where the CALL to the subprogram occurred. 
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In. the second word it i^laces the address where the caJl occurred 
plus 2. 

In the example above, SUBR would receive a 62M1 where 
TAG is in field M, and SUBR# would receive the address of Nl. 
If there were no arguments, SUBRij: would receive the address of 
ETC. Thus, the two-word block at the ENTRY point serves as 
storage for the 15 -bit address vector for picking up arguments and 
also for returning from the subprogram. 

Execution of the subnroeram begins at the first location follow- 
ing the two-word entry block. 

When the ARG pseudo-op is used with a literal, as in the above 
examples, the actual literal (50 in this case) is •venerated in the 
literal table and a relocatable pointer to the literal is generated in 
the location following the CDF CUR (see Loader Relocation 
Codes). This is the same as using the literal as a parameter. 

If the ARG statement contains a true constant parameter, the 
constant itself is assembled in the location following the CDF in- 
struction: in this case the CDF is useless. 

The advantage of using the ARG-literal method is that it allows 
a subroutine to pick up an argument which is sometimes a variable 
and sometimes a constant. 

ENTRY and DUMMY 

The ENTRY pseudo-operator is used at the beginning of a sub- 
program to establish the name of its entry point and define it as 
external for the Linking Loader. 

The ENTRY statement must occur before the symbolic name 
of the entry point appears as a symbolic address label. The actual 
entry location must be a two-word reserved space so that both the 
return address and field can be saved when the routine is called. 



ENTRY SUBROU 
SUBROU* BLOCK 2 
CLA 



An entry point name in an ENTRY statement acquires all of 

A DUMMY variable is a special type in the SABR/FORTRAN 
system. It must be defined in the subprogram which references it. 

\]!i/li<»n r<>fprprmpri AJre^nfUr q T)! TMMV vnrial-i1(=» ic tr(=>qtf=>r5 3<5 a lr>cal 



symbol. However, when referenced indirectly it causes a call to 
the DUMMY Variable run-time linkage routine (see Run-Time 
Linkage Routines). This routine assumes that the DUMMY vari- 
able is a two-word reserved space where the first word is a 62N1 
(with N the field of the address to be referenced) and the second 
wor'd contains the 12-bit address. DUMMY variables are used in 
passing arguments to and from subroutines. 



EM TRY 


Al 


DUMMY 


X 


DUKMY 


Y 


• 


BLOCK 2 


• 


K 


Y^ 


\' 



RETRN 

The RETRN statement is used to return from a subprogram to 
the calling program. The name of the subprogram being returned 
from, must be specified so that the Return Linkage Routine can 
determine the action required, and because a subprogram may have 
differently-named entry points. It is possible for the careful user 
to return to the location following the last call of any subprogram 
merely by specifying it in a RETRN statement. 



TAG^ RETRN SUBROU 



Before the return statement is used, however, the pointer in the 
second word of the subprogram entry must be incremented to the 
point following all arguments in the CALL statement. 

EXAMPLE: 

A user wishes to write a long main program, MAIN, which uses 
two major subroutines, SI and S2. SI requires two arguments and 
S2 one argument. The user would then write MAIN, SI and S2 
as three separate programs in the following manner: 
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MAIN. CLA • /START OF MAIN 





CALL 




2. 51 




ARG 




X 




ARG 




Y 




CALL 




1.52 




ARG 

• 




Z 




• 

END 






ENTRY 


51 






SI. 


BLOCK 


2 





r 


RETRN 
END 


51 


ENTRY 


52 




S2. 


BLOCK 


2 




RETRN 


52 




END 





SI couid contain calls to S2, or S2 calls to Jjl. In addition, the 
subprograms couid make use of dummy variables. 

The user then assembles each of these subprograms with SABR 
and loads all of them with the Linking Loader. During the loading 
process, all of the proper addresses will be saved in tables so that 
when the user begins execution of MAIN, the Run-Time Linkage 
Routines (see under SABR Operating Characteristics) which were 
automatically loaded, will be able to execute the proper reference. 
Thus, MAIN will be able to fully use SI and S2 and be able to 



i'Sssin'* isisoryiitins Ar-uinents 
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The following example shows how SUBR would pick up the 

LOC2. 
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/MAIN 
MAIN^ 



PROGRAM 
CLA 



TAG^ 

N2^ 
ETC^ 



CALL 

ARG 

ARG 

• • • 

END 



S^SUBR 

(50 
LOCATN 



/SUBROUTINE 
ENTRY SUBR 
DUMMY TEM 
SUBR, BLOCK 2 

TAD I SUBR 



DCA TEM 
INC SUBR# 

TAD I SUBR 

DCA TEM# 

TAD I TEM 
DCA LOCI 
INC SUBR# 



/THIS GIVES THE FIELD ADD- 
/RESS (CDF CUR) OF THE (50 
/I.E. THE CONTENTS OF Nl 
■/TO FIRST WORD OF DUMMY 
/MOVE ARG POINTER TO Nl # 
/GET ADDRESS- OF (50 
/I.E. CONTENTS OF Nl# 
/TO 2ND WORD OF DUMMY 
/PICK UP THE (50- 

/MOVE ARG POINTER TO N2 



/SIMILAR METHOD TO PICK UP CONTENTS 
/OF LOCATN 



TEMj 



INC 



SUBR# 



CLA 

RETRN SUBR 

BLOCK -2 



/MOVE PTR FOR RETURN 
/AT ETC 



Constant arguments are specified as literals because the sub- 
program may not know that a constant argument is being used. 
Hence, specifying constant arguments as literals will ensure that 
the second word of every assembled argument is actually the ad- 
dress of the argument. 

The ARG statement may be used with a constant (e.g., if a 
constant address is intended). The following technique may be 
used if SUBR can assume that the first argument is always a con- 
stant: 
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/MAI 


N 


P 


ROGRAM 


TAG;. 






CALL 


Nl^ 






ARG 


M2, 






ARG 


ETC^ 









2^SUBR 

50 

LOCATN 



END 



/SUB ROUT I ME 






ENTRY 




SUah 


DUMMY 




TEM 


SUBR, BLOCK 


2 




I.NC 




SUBR# 


TAD I 




SUBR 


DCA 




LOCI 


INC 




SUBR# 



/MOVE ARG PTR TOMl # 
/THIS GETS THE 50 
/IMMEDIATELY 



/GET C (LOCATN) 
/THE USUAL WAY 



IN 



To summarize: an advanced technique for picking up subpro- 
gram arguments is provided because subroutine arguments are 
two-word addresses and the calling program and the subprogram 
may reside in different fields. 

A subprogram entr^' point is assumed to have been defined as a 
two-word reserved block and defined in an ENTRY statement. 
The appearance of the subprogram name in an ENTRY statement 
<^ives the two-word block the i^ro^erties of a dummv variable. This 
m'^an'^ that wh**" ^h*^ cviKrimfrram xi^TfiQ i^ T'^feren'^ed indif^ctb' a 
call is generated to the Dummy Variable Run-time Linkage Rou- 
tine where the details of locating and picking up the argument 
address words are worked out. Thus, the user, need only use the 
number sign (ip) feature to increment the argument pointer in the 
second word of the entry point. 



SABR OPERATLNG CHARACTERISTICS 
Pagewise Assembly 

SABR assembles page-by-page rather than one mstruction at a 
time. To accomplish this it builds various tables as instructions 

(counting literals, off-page pointers and multiple word instruc- 

tiv/iia/ tiiK^ pago 13 aaawiiiL/iiwu aiiu puuv^iitu.. owvwiai pat-uvavj-upwicii.^-'iij 

can be used to control page assembly. 
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PAGE FORMAT 

A normal assembled page of code is formatted as below: 



xooo 



X377 



ASSEMBLED 
INSTRUCTIONS 



PAGE 
ESCAPE 



LITERALS 

AND 
OFF -PAGE 
POINTERS 



PAGE 
ESCAPE 



Literals and oflf-page pointers are intermingled in the table at 
the end of the page. 

PAGE ESCAPES 

SABR is normally in automatic paging mode: it connects each 
assembled core page to the next by an appropriate jump. This is 
called a page escape. For the last page of code, SABR leaves the 
Automatic Paging Mode and issues no page escape. The LAP 
(Leave Automatic Paging) pseudo-operator turns off the automatic 
paging mode. EAP (Enter Automatic Paging) turns it back on if 
it has been turned off. 

Two types of page escape may be generated depending on 
whether or not the last instruction is a skip. If the last instruction 
is not a skip, the page escape is as follows: 

last instruction (non-skip) 
5377 (JMPtox]77) 
literals 
and 

off-page 
pointers 
X177/NOP 
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If the last instruction on the page is a skip type, the page escape 
takes four words, as follows: 



last instruction (a skip) 


5376 (IMP to xl76) 


5377 (JMPtoxl77) 


literals 


etc. 


X176/SKP 


X177/SKP 



Multiple Word Instructions 

Certain instructions, in the source program require SABR to 
assemble more than one macume language instruction v^-g-, o^^" 
page indirect references and indirect references where a data field 
re-setting may be required). In the listing, the source instruction 
will appear beside the first of the assembled binary words. 

A difficulty arises when a multiple word instruction follows a 
skip instruction. In such a case, extra instructions must be as- 
sembled to enable the skip to be effected correctly. 

1A1&~I,SX1BV' M-JM.M.Miat.AM.^^^ M.-^'tJfm*m,M.MM.i^Kr 

These routines are loaded by the Linking Loader and perfomi 
their tasks automatically when certain psrudo-ops or coding se- 
quences are encountered in the user program. The user needs 
knowledge of them only to better understand the program listing. 

There are seven linkage routines: 

a. Change data field to current and skip CDFSKP 

b. Change data field to 1 (COMMON) and skip CDZSKP 

c. Off page indirect reference Hnkage OPISUB 

d. Off bank (COMMON) indirect reference 

linkage OBISUB 

e. Dummy variable indirect reference linkage DUMSUB 

f. Subroutine call linkage LINK 

g. ouorouunc rciuiii uui^agc ivirs 

The individual linka^^e routines function as follows: 

a. CDFSKP is called when a direct off-page memory refer- 
ence follows a skip-type instruction requiring the data field to be 
reset to the current field. 
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Assembled 




Program 


Code 


Meaning 


SZA 


7440 




DCA LOG 


4045 


call CDFSKP 




7410 


SKP in case AC = at .-2 




3776 


execute the DCA via a 
pointer near the end of the 
page. 





Assembled 


Program 


Code 


SZA 


7440 


DCA CLOC 


4051 




7410 




3776 



b. CDZSKP is called when a direct memory reference is 
made to a location in COMMON (which is always in Field 1). The 
action of CDZSKP is the same as that of CDFSKP except that it 
always executes a CDF 10 instead of a CDF current. 

Meaning 

call CDZSKP 
SKP in case AC = at .-2 
execute the DCA via a point- 
er near the end of the page. 

c. OPISUB is called when there is an indirect reference to 
an off page location. 

Assembled 
Program Code Meaning 

DCA I PTR 4062 call OPISUB 

0300 01 relative address of PTR 
3407 execute the DCA 1 via 0007 

d. OBISUB is called when there is an indirect reference to a 
location in COMMON. In such a case it is assumed that the loca- 
tion in COMMON which is being indirectly refepenced points to 
some location that is also in COMMON. 

Assembled 
Program Code Meaning 

DCA I CPTR 4055 call OBISUB 

1000 address of CPTR in Field 1 

3407 execute the DCA 1 via 0007 
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e. DUMSUB is called when there is an indirect reference to 
a DUMMY variable. In such a case, DUMSUB assumes that the 
DUMMY variable is a two-word vector in which the first word is 
a 62N1, where N = the field of the address to be referenced, and 
the second word is the actual address to be referenced. 

Assembled 
Program Code Meaning 

T^r^ A T T^\/f\7T> ACi^l ^^11 TM7\/fCTTD 

0300 01 relative address of 
DMVR 

Jt-U/ CACCUIC i-ZX^/A 1 Vlil pUlliLCl 

in location 0007 

f. LINK is called to execute the linkage required by a CALL 
statement in the user's program. When a CALL statement is used, 
it is assumed that the entry point of the subprogram is named in 
the CALL and that this entry point is a two-word, free block fol- 
lowed by the executable code of the subprogram. LINK leaves the 
return address for the CALL in these two words in the same format 
as a DUMMY variable. 







Assembled 




Program 


SUBR 


Code 


Meaning 


CALL 2, 


4033 


call LINK 






KJZ.KJJ UU 


code WOfd 


ARGX 




62M1 


X resides in field M 






0300 01 


relative address of X 


ARC C 




6211 


C is in COMMON 






1007 


absolute address of C 



g. RTN is called to execute the linkage by a RETRN state- 
ment in the user's program. 

Assembled 
Program Code Meaning 

RETRN SUBR 4040 call RTN 



^f- ^6* 



being returned from (SUBR) 



IH 
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Skip Instructions 

In page escapes and multiple word instructions, skip-type in- 
structions must be distinguished from non-skipping instructions. 
For this reason, a special pseudo-operator, SKPDF, must be used 
to define skip instructions not in the permanent symbol table, 
should these be used in source programs. 

This also explains why both ISZ and INC are included in the 
permanent symbol table. ISZ is considered to be a skip instruction 
and INC is not. INC should be used to conserve space when the 
programmer desires to increment a memory word without the pos- 
sibility of a skip. 

The first example below shows the code which is assembled for 
an indirect reference to an off-page location following an INC in- 
struction. The second example shows the same code following an 
ISZ instruction. 



EXAMPLE 1: 






INC POINTR 


0020 


2376 . 


TAD I L0C2 


0221 


40 62 




0222 


520 01 




0223 


140 7 


EXAMPLE 2: 






ISZ COUNTR 


0220 


2376 


TAD I L0C2 


0221 


7410 




0222 


5226 




0223 


4062 




0224 


520 01 




0225 


140 7 



/OFF PAGE INDIRECT EXECUTION 



/SKIP TO EXECUTION 
/JUMP OVER EXECUTION 

/OFF PAGE INDIRECT EXECUTION 



Program Addresses 

Since each assembly is relocatable, the addresses specified by 
SABR always begin at 0200, and all other addresses are relative 
to this address. At loading time, the Linking Loader will properly 
adjust all addresses. For example, if 0200 and 1000 are the relative 
addresses of A and B, respectively, and if A is loaded at 2000, 
the B will be loaded at 1 000 + 1 600, or 2600. 

All programs to be assembled by SABR must be arranged to fit 
into one field of memory, not counting page of the field, or the 
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top page (760U - 7777). If a program is too large to fit into one 
field, it should be split into several subprograms. 

Explicit CDF or CIF instructions are not needed by SABR pro- 
grams because of the availability of external subroutine calling and 
common storage. Explicit CDF or CIF instructions cannot be as- 
sembled properly. ^ 

The Symbol Table 

Entries in the symbol table are variable in length. A one or two- 
character symbol requires three symbol table words. A three- or 
four-character symbol requires four words, and a five- or six- 
character symbol, five words. Thus, for Jong programs it m.ay be 
to the user's advantage to use short symbols whenever possible. 

The symbol table, not counting permanent symbols, contains 
2644,0 words of storage. However, this space must be shared 
when there are unresolved forward and external references tem- 
porarily stored as two-word entries. 

If we may assume that a program being assembled never has 
more than 100,,, of these unresolved references at any one time, 
this leaves 2.464,,, words of storage for symbols. Using an average 

of four words ner svml-inl thic i»iln\i7c Tf^r^m fn,-r AlA c^tmU^ic- 

Symbol table oveifiow is a fatal condition which generates the 
error message v3. 



THE BINARY OUTPUT TAPE 

O A T>"n A -. ■» ■! . . 

O/^OIK UUl 



iipuis eacn macnme msiniciion on Dmary output tape 
as a 16-bit word contained in two 8-bit frames of paper tape. The 
first four bits contain the relocation code used by the Linking 
Loader to determine how to load the data word. The last 12 bits 
contain the data word itself. 



—I 1 r 

RELOCATION 
CODE 

—I — -« 1- 



HI6H ORDER OF 
DATA WORD 



LOW ORDER OF DATA WORD 

' ' ■ r 



FIRST FRAME 
SECOND FRAME 



trailer code (code 200). The checksum is contained in the last two 
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frames of tape before the trailer code. It appears as a normal 16-bit 
word, as shown below. 



HIGH ORDER OF 
CHECKSUM 



LOW ORDER OF DATA WORD 
I — I — 1 I ■ 



FIRST FRAME 
SECOND FRAME 



All assembled programs have a relative origin of 0200. 

Loader Relocation Codes 

The four-bit relocation codes issued by SABR for use by the 
Linking Loader are explained below. The codes are given in octal. 

00 Absolute Load the data word at the current 

loading address. No change is re- 
quired. 

020 5 5277 JMP LOG /WHERE LOG IS 

/AT 02 77 (ON 
0242 7500 SMA /PAGE) 
0356 0020 20 . /A CONSTANT 



01 



Simple 
Relocation 



Add the relocation constant to the 
word before loading it. (The relo- 
cation constant is 200 less than the 
actual address where the first word 
of the program is loaded.) Items 
with this code are always program 
addresses. 



0376 



1520 01 A, 



L0C2 



In the above example, LOC2 is at 
relative address 0520. If the first 
word of the program (relative ad- 
dress 0200) is loaded at 1000, then 
the actual address of A is 1176 
and location 1176 will be loaded 
with the value 1320, which will 
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03 



External 

Symbol 

Definition* 



the acttial addres*^ 



^f T nro 



^v^ v_^.^/ 



when loaded. 

The data word is the relative ad- 
dress of an entry point. Before en- 
tering this definition in the Linkage 
Tables so that the symbol may be 
referenced by other programs at 
run-time, the Linking Loader must 
add the relocation constant to it. 
The six frames of paper tape fol- 
lowing the two-frame definition are 
the ANSCTT code for the symbol. 



ADDRESS LOW ORDER 






SPACE 



SPACE 



04 Reorgin* 



05 



CDF 

Current 



Change the current loading address 
to the value specified by the data 
word plus the relocation constant. 
The data word is always a 6201 
(CDF) instruction which has been 
generated automatically by SABR. 
The code 05 indicates to the Link- 
ing Loader that the number of the 
field currently being loaded into 
must be inserted in bits 6-8 before 
loading. 



300 
0301 



6201 05 A, TAD L0C2 



i 776 



/WHERE L0C2 IS OFF PAGE SO THAT 
/THE TAD INSTRUCTION MUST BE 
/INDIRECT. 



0376 



520 



01 



Does not a'^^ear in assembW listings. 



14-40 



06 



Subroutine 

Linkage 

Code 



If the program containing this code 
is being loaded into field 4, relative 
location 0300 will be loaded with 
6241. 

Such' an instruction is referred to 
in this document as CDF Current. 
They are generated automatically 
by SABR when a direct reference 
instruction must be assembled as 
an indirect, and there is the pos- 
sibility that the current data field 
setting is different from the field 
where the indirect reference occurs. 
The data word is a special con- 
stant enabling the Linking Loader 
to perform the necessary linking 
for an external subroutine call, 
(c.f., CALL Pseudo-op). The 
structure of the data word is shown ^ 
below. 



BITS 0-5 


BITS 6-11 


NUMBER OF 
ARGUMENTS 
FOLLOWING 
THE CALL 

4 ^ 


LOCAL PROGRAM 
NUMER ASSIGNED 
TO THE EXTERNAL 
SUBROUTINE 
BEING CALLED 
^ ► 



Before the 12-bit, two-part code 
word is loaded into memory, a 
global external number will be sub- 
stituted for the local external sym- 
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bol number in the right half of the 
data word. 



0200 
0201 



40 3 3 
30 7 e 
ARG X 
ARG Y 
ARG Z 



CALL 3^ SUB 



10 Leader/Trailer* 
and 
Checksum 



12 High Common^ 



1 7 Transfer'^ 
Vector 



Here. SUB has been assigned the 
local num.ber 07 during assembly. 
At loading time this number will 
be changed to the slobal number 
(for example, 23), which is as- 
signed to SUB. In this example, 
0323 would actually be loaded at 
relative address 0201. 
This code represents normal 
leader/traiier. At the first occur- 
rence of this code following the 
assembled program, the computer 
word contains the checksum. 
The data word is the highest loca- 
tion in Field 1 assigned to COM- 
MON storage by the program. This 
item will occur exactly once in 
every binary tape and it must be 
the first word after the leader. If 
no COMMON storage has been 
allocated in the program, the da:ta 
will be 01 77. 

Signifies that reference to an ex- 
ternal symbol occurs in the as- 
sembled program. The 12-bit data 

frames contain the ANSCII code 
for the symbol. 



* Does not appear in assembly listings. 
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The Linking Loader uses this def- 
inition to create a transfer table, 
whereby local external symbol 
-numbers assigned during assembly 
of this particular program can be 
changed to the global external 
symbol number when several pro- 
grams are being loaded. 

SAMPLE ASSEMBLY LISTING 

This program is offered only to illustrate many of the features 
and formats of a SABR program. The program cannot be run 
(see also, Demonstration Program Using Library Routines). 

PDP-8 SABR DEC-0 8-A2B2 

HIGH SPEED READER? Y 

HIGH SPEED PUNCH? Y 

LISTING ON HIGH SPEED PUNCH? N 



.DTCA 


67620P 








DTSF 


67710P 








LOC 


0000UNDF 






MUL 


0000EXT 








NAME 


1000COM 








POINTR 


1013 








SUB 


0200 EXT 








ST 


0202 








St2 


0214 








S2 


0214 








S3 


0227 








SA 


0233 








TAG 


0177ABS 








X 


0400 








Y 


0401 








Z 


0402 




/SAMPLE 


OF S 




6762 


OPDEF 


DTCA 


6762 




6771 


SKPDF 


DTSF 


6771 






/ABSYM 


LOC 


176 




0177 


ABSYM 


TAG 
DECIM 


177 




200 


NAME, 


COMMN 
ENTRY 


8 
SUB 




- 




DUMMY 
LAP 


X 
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0200 


0000 


SUB, 


0201 


0000 




0202 


0000 


ST, 


0203 


4067 




0204 


0200 01 




0205 


. 140 7 




0206 


7106 




0207 


7006 




0210 


621 1 




0211 


3776 




0212 


6201 05 




0213 


2775 


ST2> 


0214 


40 33 


S2, 


0215 


0302 06 




0216 


6201 5 




0217 


0400 01 




0220 


6201 5 




0221 


0374 01 




0222 


6201 




0223 


7777 




0224 


1373 




0225 


1 372 




0226 


5200 




0227 


4253 


S3 J 


2 30 


0004 




0231 


. 0200 




0232 


0371 01 




0233 


6 762 


54, 


0234 


5377 




0371 


0037 




0372 


7501 




0373 


7717 




0374 


0020 




0375 


1013 01 




0376 


1001 




0377 


7000 




400 


0000 


X, 


401 


0214 01 


Y, 


0402 


2301 


Z, 


0403 


1520 




0404 


00 7 5 




0405 


40 52 




0406 


5777 




040 7 


6465 




0410 


6600 




0411 


6771 





BLOCK 2 

EAP 

OCTAL 



TAD I SUB 



CLL RTLJ RTL 

DCA NAME* 

INC POINTR 

CALL 3,MUL 

ARC X 

ARC C 20 

ARC -1 

TAD (D-49 

■IF LOCI 

PAUSE 

TAD C-"? 

JMP SUB 

CPAGE 4 

JMS S4 

4 

NAME 

(37 

DTCA 



PAGE 



St2 

TEXT "SAMP@ = */?456' 



DTSF 
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0412 


5376 








■0413 


5377 








0576 


7410 








0577 


7410 




REORG 


1000 


1000 


7410 




SKP 




1001 , 


7410 




TAD I 


ST2 


1002 


5206 








1003 


40 62 








1004 


0214 


01 






100 5 


140 7 








1006 


1377 




TAD 


(333 


1007 


6211 




DCA 


NAME 


1010 


3776 








1011 


4040 




RETRN 


SUB 


1012 


0001 


06 






1013 


0000 


POIMTR, 







1176 


1000 








1177 


0333 









EMD 



For a multiple word instruction the actual instruction line is 
typed beside the first instruction. 



0650 6201 5 L0C2^ JMP MAME /OFF PAGE 

0651 5774 

0652 7106 CLL RTLJRTLiRTL 

0653 7006 

0654 7006 



For an erroneous instruction, the error flag appears in the ad- 
dress field. The instruction is not assembled. 
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0700 7200. N2^ CLA 

I CLL SKP 

0701 7402 HLT 



The page escape and literal and off -page pointer table are typed 
with nothing except the correct address, value and loader code. 



0770 


7006 


N3^ 


RTL 


0.771 


7500 




SMA 


772 


5376 






0773 


5377 






7 74 


0200 01 






0775 


0020 






0776 


7410 






0777 


7410 







LOADING AND OPERATING SABR 

Procedures for loading SABR and assembling a source program 
are given below. See Appendix C2 for instructions for use of 
the Binary Loader. 

Loading in a Paper Tape System 

1. Make sure the Binary Loader is in memory, say in field n. 

2. Set the console switches as follows: 

Instruction Field = n. Switch Register = 7777. 

3. Press LOAD ADDress. 

4. Insert the SABR binary tape into the reader. 

S Tf n^ina thp hiah-cnpprl rpnripr rlpnrpcc Qw/it^Vi TJpfrictpr Tlif f\ 
_ . — ^ ..-j_— „jf, ^, „_^^^„„ „,,-.._^» ^^w^.^..^^ ^^^^ ^. 

6. Press START. 

7. SABR will now be loaded into memory by the Binary 
Loader; portions of SABR will load into field and field 1. 

Loading in a Disk Monitor System 

1 . Make sure the Disk Monitor is in memory. (Type CTRL/Cf 
or START at 07600.) 

2. When the Monitor responds with a dot, call the system 
Loader as follows: 

.LOAD (followed by the RETURN key) 

while tvr*ir»<T th^ f^ r\r P h f^\r 



■i"\i*^£xA 


U.r 


V>r^lM%r\rr 


j-lj-k1TT«-k 


4-Urt, 


r>T-i>T 


l.^». 


ftj J^WVl 


Kjy 


ll\Jl\JLlkiQ, 


VAWWII 


tilV 


\^ JL JLVJ-^ 


AV^ 



3. Insert the SABR binary tape in the reader. 

4. Answer the loading command dialogue as follows: 

*IN-R: for high speed reader or *IN-T: for Teletype 
* 

*ST = 

t < CTRL/P > t < CTRL/P > 

5. SABR is now loaded into memory, partly in field and 
partly in field 1 . It may be saved on the user's system device 
by responding to the monitor's dot as follows: 

• SAVE SABR! 0-7177;200 

• SAVE SAB 1! 700,1700-12427 



6. SABR is now saved on the user's system device and may be 
called as follows: 

• SABl 

• SABR 

The field 1 portion must be called first. 

x4sseinbly Procedure 

It is assumed that the programmer has written his program in 
SABR language and punched this source program on paper tape in 
ANSCII code. The source tape may have been split into several 
separate tapes by placing a PAUSE statement at the end, of each 
section except the last. The last tape must have an END statement 
at the end. 

After SABR has been loaded into memory, it is used to assemble 
the source program. In Pass 1 the relocatable binary version of the 
user's program is created and, at the end of this pass, the symbol 
table is either typed or punched, according to whether this listing 
is to be typed or punched. Pass 2 is the listing pass. The assembly 
is carried out as follows. 

NOTE 

If SABR has been saved on the System I/O 
device, it will start automatically at Step 3 
below when called into memory. The source 
tape (first section) should be inserted in the 
reader before operation begins. 
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1 . Set the console switches as follows: 

Data field = 0, Instruction Field = 0, 
Switch Register = 0200. 

2. Press LOAD ADDress and START. 

3. SABR now types a sequence of two or three questions; 

HIGH SPEED READER? 

HIGH SPEED PUNCH? 

LISTING ON HIGH SPEED PUNCH? 

1 iicse questions must ue answereu witu i u tnc answer is 
yes. Any other answer is assumed to be no. The third ques- 
tion is typed only if the second is answered Y. If the third is 
answered Y, both the symbol table and the listing are 
punched on the high-speed paper tape punch. Otherwise, 
they are typed on the teletypewriter. The user need not wait 
for the full question to be typed before responding. 

4. As soon as SABR has echoed the user's response to the last 
question, turn on the punch device and, if it is being used, 
the ASR reader. If the low-speed reader is used, the error 
message E indicates that the user has waited too long before 

tlirnTna the rpnHpr O" Thf^ 1ICP>r miict hf^rrin prroin 

--*-^'--'"^ w*^V ^^C*V*W*. V^ii. M At\^ k^^X..A jLt.t.l^^k. O-WwALA Cl^L^.ll. 

5. At this point, Pass 1 begins. SABR reads the source tape 

and rtlinfhpc thp hinarir tar^p Aftpr tVii=> Kinoi-t? i^na T->r>c V\ao.n 

w«*&^^-v..w«^, .^i KL^jiv CJ- JL/^^lJ \J1 l_rL«l t\^ll^.^c> LIIW L/4 ^.-»^1 till I aVlUL/^l 

table. 

6. If the source tape is in several sections (separate tapes with 
PAUSES at the end of all except the last), SABR halts at the 
end of each section. At this point, insert the next section in 
the reader and then press CONTinue. 

7. At the end of Pass 1 , SABR halts. 

8. If an assembly listing is desired, reposition the beginning of 
the source tape in the reader and if using the ASR reader, 
set it to START, and then press CONTinue. 

9. At the end of Pass 2, SABR again halts. To restart SABR 

10. To restart SABR at any time, press STOP, set the Switch 

ever, the first pass must always be repeated. 
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1 i . After assembling in a Disk Monitor environment, control 
may be returned to Monitor by restarting at location 7600. 

Procedure For Use as Fortran Pass 2 

In addition to its status as a stand-alone assembler, SABR 
serves as pass 2 of the 8K Fortran compiler. For this purpose, 
SABR procedures differ slightly. The Fortran compiler, in one 
pass, converts the user's Fortran source program into a symbolic 
source program containing standard PDP-8 mnemonics. SABR 
then converts the symbolic tape into a relocatable, binary-coded 
program. 

The symbolic tape produced by the Fortran compiler is not in 
standard Format; it is arranged as shown below. 



L 
E 
A 
D 
E 
R 



MAJN PART 
OF PROGRAM i 
EXECUTABLE 
CODE. 



E 
N 
D 



S 

E 
P 
A 
R 
A 
T 

R 



SYMBOL DEFINITIONS 
COMMON/ARRAYS. 
DATA AND 
PROGRAM ENTRY 
POINT 



P 
A 
U 
S 

E 



T 
R 
A 

I 

L 
E 
R 




TRUE START 

3' OF BLANK TAPE 



The tape is arranged this way because the data at the end of the 
tape cannot be inserted in the midst of the executable code, and 
some data which should be at the beginning of the tape is not 
known until later. Thus, the true start of the symbolic program is 
near the end of the symbolic tape, preceded by a segment of 
blank tape code and followed by a PAUSE statement. 

To assemble such a tape with SABR, one of three methods must 
be followed. Actually, the general procedure is the same as that 
described in Assembly Procedure, differing in special details. The 
differences are covered by the three methods below. 

METHOD 1 

The simplest method is to cut the symbolic tape into two parts. 
The cut should be made at the middle of the blank tape which 
separates the executable code from the symbol definitions. The 
latter section of the tape should then be marked "Section 1" and 
the former section (the executable code) should be marked "Section 
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2" Assembiy tnen proceeas witn tne two-part syrnuuiit; tape as 
previously described. 

METHOD 2 

Tlie user may avoid actually cutting the symbolic tape by manip- 
ulating the tape as if it were in two parts as explained above. The 
tape should initially be inserted in the reader with the separator 
blank tape over the read-head. When SABR halts at the PAUSE 

cfo+^T^c>r-if o+ tVifa nVix/cir'Oi e^r\(\ nf t'np tnnp thp ii«;pr sjhniilfi reno«;itinn 

the tape, putting the physical beginning of the tape in the reader. 
Then press CONTinue. The assembly pass will end at the sep- 

„^„4^K>^ U1o»^Tr *-<yr\o. r-r^Ao- XKff. occ*:»mKNr liotinrr ccin \>o r>rr*rl nrfrl in p 

similar manner, pressing CONTinue to start the listing pass. 

METHOD 3 

The third method requires SABR to pass over the symbolic tape 
two times for each pass of the assembly. However, it allows the 
tape to be inserted at its physical beginning. It is based on the fact 
that a symbolic tape output by the FORTRAN Compiler has as 
its physical first line the special pseudo-op, FORTR. This pseudo- 
op has no effect except when a symbolic tape output by the Com- 
piler is assembled using this third method. 

1. Insert the symbolic tape in the reader at its physical beginning. 

2. Start SABR as usual. 

3. Sensing the FORTR statement as the first line, SABR ignores 
all further data until after it passes over the END statement. 
SABR then begins the actual assembly by processing the sym- 
bol definitions, etc., which are at the latter end of the tape. 

4. Then, SABR halts at the PAUSE statement which is at the 
physical end of the tape. At this time the user should reposi- 
tion the symbolic tape in the reader at the physical beginning 
of the tape, and then press CONTinue. SABR now assembles 
the executable code portion of the tape in the normal way. 

5. If an assembly listing is desired, proceed as in Method 2 after 
SABR finishes the assembly pass. 

THE LINKING LOADER 

\i (Acsf^aiaVAp- Kincir\/ r\rc\ar^vr\ tnnpc nrndnrprl hv SIARR assemblv 

are loaded into memory by using the 8K System Linking Loader. 
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The Linking Loader is capable of loading and linking a user's 
program and subprograms in any fields of memory. It is even cap- 
able, in a special way, of loading programs over itself. The Linking 
Loader also has options which give storage maps and core avail- 
ability. 

The Linking Loader requires a PDP-8/I, -8/L, -8, -8/S or -5 
Computer with a least 8K words of core memory. Either high-speed 
or ASR paper tape input is acceptable, however, a high-speed 
reader is highly recommended. 

The software requirements are: 

a. Binary paper tape copy of the Linking Loader 

b. Relocatable binary paper tape copies of both Part 1 and 
Part 2 of the 8K System Library 

c. The relocatable binary paper tapes of the user's own pro- 
gram and subprograms which have been produced by as- 
sembling his programs with SABR. 

Operation 

Generally speaking, the Linking Loader is capable of loading 
any number of user and Library programs into any field of PDP-8 
memory. These programs are loaded consecutively via the high- 
speed reader (or the ASR reader). The choice of which field to 
load each program into is a switch register option. Usually, sev- 
eral programs may be loaded into each field. Because of the space 
reserved for the Linkage Routines the available space in field is 
three pages smaller than in all other fields. ' 

Any COMMON storage reserved by the programs being loaded 
is allocated in field 1 from location 0200 upwards. The space re- 
served for COMMON is obviously subtracted from the available 
loading area in field 1 . The program reserving the largest amount 
of COMMON storage must be loaded first. 

The Linking Loader uses the following special method to enable 
loading data over itself. When the Linking Loader encounters data 
which must be loaded over itself, it punches this data onto paper 
tape in RIM format. Then, after the user has finished loading all 
his relocatable binary program tapes, he simply loads the RIM 
format tape using the standard RIM loader. 

The Run-Time Linkage Routines which are necessary to execute 
SABR programs are automatically loaded into the required areas 
of every field by the Linking Loader as a part of its initialization. 
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For the user, the only required knowledge of tnese routines is tuC 
particular areas of core they occupy. 

Linkage Routine Locations 

Because the Library Linkage Routines must be in core when 
SABR assembled programs are run, certain core locations are not 
available as follows: 

Field Locations 0400-0777 

jHieid {.}. \ . z. . . . Locaiiuns uuu/ tmu Ov^^^-uv// ^ 

Thus in every field of memory the following page locations 
are available to the user: 

0000-0006 for interrupts, debugging, etc. 

noiO-nni7 auto-index registers 

0023-0032 arbitrary 

0074-0177 arbitrary 

RESERVED LOCATIONS. Locations 20, 21, 22 in field 1 are 
used for the Floating-Point Accumulator. The user should use 
these locations with great care. When using the Library routines, 
locations 20-32 in the field where the routines reside, are used for 
temporary storage by the routines. Locations 176 and 177 in the 
field where the I/O handler routines (lOH) reside are used for 
temporary storage by the I/O handler. 

The 8K System Library subprograms, which may be used by any 
SABR program, are loaded in the same way as other relocatable 
binary programs. Only those library programs which the user's 
programs actually call need to be loaded. 

Switch Register Options 

Durins the loadins operation ,with the Linking Loader, two user 
options are available to obtain information about what has already 
been loaded. The switch register is used to select these options.. 
Either option may be selected after any program has finished 
loading. 

WARNING 
The Teletype punch m-ust be at OFF or FREE 
before selecting these options. 

The switch register bits used are as follows: 

BIT 0=1 selects the Core Availability option; 






The Core Availability option causes the number of free pages of 
memory in every field of memory to be typed in a list on the Tele- 
type. For example, if the user has a 16K configuration, a list like 
the following might be typed. 

0002 (number of free pages in field 0) 

00 1 (number of free pages in field 1 ) 

0030 - (number of free pages in field 2) 

0036 (number of free pages in field 3) 

The number of pages initially available in field is 0033 and in all 
other fields is 0036. 

The Storage Map option causes a list of all program entry points 
to be typed, along with the actual address at which they have been 
loaded. The entry points of programs which have been called but 
which have not been loaded are also listed along with a U flag for 
undefined. Such flagged programs must be loaded before execution 
of the user's programs is possible. The Core Availability list is 
automatically appended to the Storage Map. A sample is shown 
below. 



t^IN 10200 

READ 01055 

WRITE 01066 

lOH 3031 

SETERR 00000 u 

ERROR 00000 U 

TTYOUT 00000 u 

HSOUT 00000 U 

TTYIM 00000 u 

HSIiSJ 00000 u 

FDV 04722 

CLEAR 05247 
IFAD ■ 05131 

™P 04632 

ISTO 05074 

STO 04447 

FLOT 05210 

FAD 4010 

MV 00000 u 
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Loading the Linking Loader 

The Linking Loader must be loaded into the highest available 
field of memory. 

L Make sure the Binary Loader is in memory, for exam.ple, in 
field m. 

2. Let h represent the number of the highest field in the user's 

V'V^ 1.11141. VIA Cii'iv^AJl* 

3. Set the console switches as follows: 

Data Field = h. Instruction Field = m. Switch Register = 
7777. 

4. Press LOAD ADDress. 

c i5ir>^^ ^u^ v*tT^qT-T7 t-vor»Ar tcine o^ ^^^ T .inkina T npidex in the 

reader. 

6. If using a high-speed reader, depress switch register Bit 0. 

7. Press START. The Linking Loader will now be loaded into 
memory. 

Loading Relocatable Programs 

The Linking Loader is used to load the user's relocatable pro- 
grams and 8K Library subprograms as outimeu ueiow. 

NOTE 

The program or subprogram which uses the 
largest amount of COMMON storage should 
be loaded first. (The Library subprograms 
do not use COMMON.) 

L After the Linking Loader has been loaded into the highest 
memory field, h, the user should set the console switches 
as follows: Data Field = h. Instruction Field = h. Switch 
Register = 0200. 

2. Press LOAD ADDress. 

3. Place the relocatable binary tape for the first program to 
be loaded in the reader. Position the tape with leader code 
in the reader. 

4. Set switch register to 0000. Then, if loading via the Tele- 

f\rr%a T*pp/^pf ic r^apnirArl ratcA c\Vitr»T-» rpoicfpr \\^f ft Tf thf*. 

user does not have a high-speed punch, he should raise 
switch register bit 7. Finally, set switch register bits 9-n 
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to the number of the field into which the first program or 
subprogram is to be loaded. 



SWITCH REGISTER M 
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Example: 

If the user wishes to load his first program into field 3, and 

if he has no high-speed I/O device, then he should set the 

switch register to 0063 before the next step. 
Press START. 

The user's relocatable binary program will now be loaded. 
When loading is completed, the Linking Loader halts. 
The user may now either load another program or select 
one of the options in steps 9 and 10. 

To load another program, insert the program relocatable 
binary tape in the reader, set switch register bits 9-11 to 
the number of the field the program is to be loaded into, 
and then press CONTinue. 

To select the Core Availability option, set switch register 
bit = 1, and press CONTinue. 

To select the Storage Map option, set switch register bit 1 = 
1, and press CONTinue.* 

If the ASR punch is turned on for possible RIM format 
data punching, as explained on page 14-51, ensure that it 
is turned off before selecting either of the options. Turn it 
on again after the typing of the options is completed. 
The user may continue loading more programs as in step 
8 after using either of the options. 
Any time the Linking Loader halts, the user may access 
memory directly via the DEPosit and EXAMine console 

All other switch register bits are irrelevant. 
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10. 



11. 



switches. After this is done the Linking Loader may be 
restarted via the console switches at location 7200 (in the 
highest field, where the Linking Loader resides). 

THE DISK LINKING LOADER 

The Disk Linking Loader (LLDR) is used to load and execute 
8K FORTRAN compiled and 8K SABR assembled user programs 
when the system configuration includes one or more disks and the 
Disk Monitor System. Such user programs exist as a main program 
with several subprograms (including necessary 8K library subpro- 
grams), all of which must be on punched paper tape in relocatable 
binary format. LLDR loads these multiple-part programs in a page- 
wise relocatable manner, and links ail calls to and returns from 
external subprograms. 

The user communicates with LLDR via the keyboard in a sim- 
ple, straightforward manner; LLDR types *OPT- and the user 
responds with a one-letter code which causes LLDR to perform 
one of seven possible functions (operations). 

LLDR, unlike the standard 8K Linking Loader, is entirely 
keyboard oriented and makes extensive use of the disk. For ex- 
ample: 

a. It allows user programs to be loaded over LLDR itself by 
utilizing temporary disk storage in the Disk Monitor System en- 
vironment. 

b. It provides two levels of program overlaying so that much 
larger programs can be run. Up to eight files (programs and sub- 
programs) can be loaded into each overlay area. Overlay files are 
saved on the disk and called into core as needed at program execu- 
tion time. 

c. It provides several utility and convenience features such as 
storage map listing, a listing of necessary subprograms not present 
in core, a listing of available (unoccupied) core, and automatic 
program starting. 

d. It includes load-time monitoring via the keyboard rather 
than the console switches, and several other minor features. 

LLDR accepts paper tape input only, from either the low- or 

systems. However, the user program (during execution) can use 
both disk and DECtaoe for inout/outDUt. 

a. A. • X 

li*.- Wj_»wi.aliiig, isyocv-iix ^^rvnii J. »XAi«^ i^ixiri-ti^^ j-voa^iix^^y ii;^>^w^«jc* j 
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for execution of 8K FORTRAN and 8K SABR programs is con- 
tained within the LLDR program, and its use is entirely automatic. 
Two loading techniques are provided: normal loading and over- 
lay loading. In normal loading, each file is loaded into a separate 
core area where it remains during execution. In overlay loading, 
several files are sequentially loaded into the same core area and 
saved on the disk. At execution time, each file is brought from the 
disk into core when it is needed. LLDR provides two levels of 
overlay, and each allows up to eight files per overlay level. A norm- 
ally loaded program may call a program in either overlay level, 
and a program in either overlay level may call a program in the 
other level. 

The following main stipulations should be remembered when 
using LLDR. 

a. A program in an overlay level may not call another ex- 
ternal program in the same overlay level, except as explained in 
Overlay Loading. 

b. Common storage (i.e., data storage accessible by all pro- 
grams and subprograms) is always located in field 1 . 

c. The program or subprogram which requests the largest 
amount of common storage must be loaded first. 

d. No one program or subprogram may be greater than 4K 
in length. 

e. Programs may not be loaded across field boundaries, al- 
though they may be loaded into any available field. 

f. Overlay files may not be loaded over LLDR, although 
normal files may be. 

i LLDR requires a PDP-8/I, -8/L, -8, or -8/S computer with at 
least 8K words of core, a Teletype and at least one disk. A high- 
speed paper tape reader is optional but highly recommended. 
LLDR can use all available core memory and disk storage. 

Loading, Saving and Starting LLDR 

LLDR is furnished on punched paper tape in binary-coded 
format, and is loaded into field by the standard Binary Loader 
(refer to PDP-8/I System User's Guide, DEC-08-NGCB-D). 

Before using LLDR or saving it as a systems program on the 
disk, it should be properly initialized for the amount of core avail- 
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able and for the type of paper tape reader to be used. LLDR is 
initially set for a basic configuration of 8K words of core and a 
high-speed paper tape reader. With any other configuration, LLDR 
should be started and initiahzed as explained under Expanded 
Configuration. Complete loading, saving, and calling procedures 
are given below for both basic and expanded configurations. The 
following procedures assume that the user is familiar with the Disk 
Monitor System, and that the system is available for use. 

BASIC CONFIGURATION. The user with 8K of core and a high- 
speed reader should use the following procedures. 

a. Determine that the Disk Monitor is in memory. (Type 

UIKL/'L-"" or ^l/\tVl iXlKJIKiKjyj.) 

b. When Monitor responds with a dot, call the system loader 
by typing 

.LOAD (followed by the RETURN key) 

c. Insert the LLDR binary tape in the high-speed reader. 

d. Answer the loading command dialogue as follows: 
*IN-R: Keys shov/n v/ithin angle brackets 

* ri-ra -nci fn\\r\(^A cvr\ tKp tplpnrintcr 

*OPT-l when typed by the user. 









After each up-arrow which is typed by Monitor, the user types 
CTRL/P by holding down the CTRL key while typing the P key; 
this is equivalent to pressing the CONT switch when loading 
manually. 

e. LLDR is now loaded into core; save it on the disk by 
typing 

.SAVE LLDR!0-6777;200 

f. LLDR may now be called to load relocatable binary 

-n-mnrctmc }n\t tvnino 
^g*"^"^ - 



.LLDR 

* CTRL/C is typed by holding down the CTRL key while typing the C 
key. 
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EXPANDED CONFIGURATION 

The user, with any configuration other than the basic configura- 
tion mentioned above, should use the following procedure: 

a. Determine that the Disk Monitor is in memory. (Type 
CTRL/C or START at 07600.) 

b. When Monitor responds with a dot, call the system loader 
by typing 

.LOAD 

c. Insert the LLDR binary tape in the appropriate reader. 

d. Answer the loading command dialogue as follows: 
*IN-R: (R: for high-speed reader 
* T: for ASR reader) 
*OPT-l 

*ST = 7400 

t <CTRL/P> t <CTRL/P> 

e. LLDR is now loaded into core. It automatically starts at 
location 7400, causing it^ to type out its initialization questions. 
Answer the questions as shown below. 

*GIVE SIZE OF MEMORY IN K-12 (user typed 12) 

*HIGH SPEED READER? Y (user typed Y) 

When answering the first question, the user should type the amount 

of available core memory after K-; the user should type Y for yes, 

or N for no in answer to the second. 

f. When the above questions have been properly answered, 
LLDR may be saved on the disk by typing 

.SAVE LLDR!0-6777;200 

g. LLDR may now be called to load relocatable binary pro- 
grams by typing 

LLDR 

LLim Fwictions 

When LLDR has been initialized and started as described in the 
preceding section, it types its program version number (also found 
on the paper tape identification label) and option statement and 
then waits for the user to specify the desired function to be per- 
formed. For example: 

PDP-8 DEC-08-A2B4-02 
*OPT- 
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The user's response to *OPT- is in the form of a one-letter code 
followed by the RETURN key. LLDR's functions and correspond- 
ing one-letter function codes are listed below. 

Code Function 

C Core availability listing 

D Disk file assignment 

E Exit with halt 

L Normal loading 

M Storage map listing 

O Overlay loading 

S Start main program 

TT T Tn1/-sorJ<a/-1 rymnrctm lictina 

Functions may be called whenever needed or desired, except 
that the M, U, and S functions must not be called first. Upon com- 
pletion of a function (except E or S), LLDR will request another 
by repeating the option statement (*OPT-). Any error made by the 
user when responding to an option statement will cause LLDR to 
type a question mark, ignore the response, and repeat the option 






LLDR may be stopped (e.g., to make a program patcn; anu 
restarted without altering the state of the computer by using the 
console STOP switch and restarting at 6000 FIELD 0. This method 
may be used at any time after completion of any function other 
than D, except during overlay loading or while a tape is actually 
being read. 

At any time during the use of LLDR (except while a tape is 
being read in), control may be returned to the Disk Monitor. This 
is done by typing CTRL/C; however, when CTRL/C is typed, all 
data temporarily stored on the disk is lost. 

Disk File Assignment Function (D) 

If the user's programs or subprograms create or use disk data 
files with the RDISK and WDISK library functions, the D function 
must be the first function used. The D function performs the pre- 
liminary job of enering the names of user files into the disk direc- 
fc^-ir TU\c i->t-fit->QrAc th(^ wn\7 fnr nsincf the RDTSK and WDISK 
library functions, which allow the user to read and write data on 
the disk at execution time. 
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Use of the D-function proceeds as shown below: 

PDP-8 DEC-08-A2B4-01 

*OPT-D 

*FILES-ABC, WXYZ, Ml, M2, 5H, R, 3, P 

*OPT- 

where a directory entry is assigned to each of the eight file names. 
File names may be from one to four characters in length, and up 
to ten files may be specified. All such files must be named in one 
execution of the D function. 

The order in which the data files are named for the D function is 
especially important. The reason for this is that when the user's 
program references disk data files using the RDISK and WDISK 
hbrary functions, he must reference these files not by name but by 
logical number (1, 2, . . . , 10). This logical number is determined 
by the order in which he names the files for the D function. For 
example, if files have been named in the D function as shown in 
the previous example, the user's program will reference file Ml by 
statements of the form 

CALL RDTSK (3, . . .) 

because Ml was the third file named. 

Before using the D function the user should study thoroughly 
the operation and use of the RDISK and WDISK library functions 
under Disk I/O Routines. 

The disk directory will accommodate ten file names. If the di- 
rectory is too full to accommodate all files named, a meaningful 
error message is printed by LLDR. In the example above, if the 
directory had room for only four files, the error message 

DISK WILL NOT HOLD 5H & FOLLOWING FILES 

would have been printed. If this happens, the entire D function 
request is ignored and LLDR prints another *OPT- to allow the 
user to repeat the D function with fewer files or to specify a different 
function. 

After the D function has been performed, LLDR will again 
print *OPT- for the user to continue with the process of loading 
his program. After the D function has been used or when a differ- 
ent function has been called, the D function is no longer available 
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as an illegal function code. 

Again, if the D function is to be used, it must be the first func- 
tion used. If it is not chosen as the first function, it is not available 
for use until a fresh image of LLDR is brought into core from 
-the disk. 

Loading Functions (L and O) 

overlay loading, are available for use at any time. These are the 
principal functions of LLDR — to load relocatable programs for 
execution. Programs and subprograms may be loaded in any order 
and into any field. The only restrictions are listed below. 

iX. 1 lie &uuuiugxaiii wjnivii n>^v.^u.m^a \.ii\. itng,v^o«, tijiiwv.in. «^i 

common storage must be loaded first. 

b. No subprogram may be loaded across a core field bound- 
ary; i.e., no subprogram may be longer than 4K in length. 

c. A maximum of 64 subprograms may be loaded, including 
multiple entry points for single programs. 

LLDR loads subprograms in the order presented and into the 
field specified (see below) from the lowest available memory up- 
ward. Common storage is allocated in the lower portion of field 1 
before loading actually starts. A maximum of 3840 words of com- 
mon storage fills field 1 . 

LLDR loads in a page-wise relocatable fashion (each program 
begins at the start of a new core page), establishing external links 
so that each subprogram is properly executed. 

NORMAL LOADING (L) 

In normal loading, the user's program is loaded directly into 
core memory where it remains available for, throughout, and after 
execution. The core area occupied by each normally loaded pro- 
gram is the property of that program, and no other program can 
be loaded into its core area. 

To perform normal loading, the user responds to *OPT- with 
the letter L. When this is done, LLDR types a request for the 
number of the field in which the user wishes to load. This specified 

lieiU muSi Caim ill iiiC eOiiiiguiaiiuii. 1 Ul \^Aaiijpjs^. 

*OPT-L 
*FIELD-2 



Had field 2 been nonexistent, the following would have occurred: 

*OPT-L 
*FIELD-2 
? 
*OPT- 

where LLDR ignored the user's response, typed the question mark, 
and repeated the option statement. 

When LLDR is satisfied with user response, it then types an 
up-arrow. At this point LLDR will pause and wait for the user to 
place his relocatable binary tape in the tape reader, and to type 
CTRL/P which causes LLDR to load the program into core. 
When the program has been loaded, LLDR will type another up- 
arrow and pause for user response. If the user wishes to load an- 
other program into the same field, he need only place the tape in 
the reader and then type another CTRL/P (or press the CONTinue 
switch and then type CTRL/P if using the low-speed tape reader). 
When the user no longer wishes to load into the same field, he 
should respond to the up-arrow by typing the RETURN key, and 
LLDR will type another option statement. 

The user may respond to an up-arrow with CTRL/N, which 
causes LLDR to by-pass the next program on a multi-program 
tape. This situation may, for example, occur with a library sub- 
program tape. 

A typical example of normal loading is shown below, where 
three programs are loaded into field and two into field 1, with 
one program being by-passed. 

*OPT-L 
*FIELD-0 

* t <CTRL/P> t <CTRL/P> f <CTRL/P> t 
*OPT-L 

*FIELD-1 

* t <CTRL/P> t <CTRL/N> t <CTRL/P> f 
*OPT- 

If the low-speed reader had been used in the example above, the 
CONTinue switch would have been pressed just before each 
CTRL/key combination. 
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OVERLAY LOADING (O) 

Overlay loading allows the user to load as many as 16 sub- 
programs into the same core area. The user may load one or two 
overlay levels (each O function call constitutes an overlay level) 
of subprograms (files) with up to eight files per level. Overlay 
loading is possible only when no two subprograms of the same 
level need to be in core at the same time; i.e., they do not call each 

All subprograms loaded during the operation of an O function 
are loaded into the same core area (overlay level) and automatically 
saved in separate files on the disk. At execution time each file is 
called back into core as needed. No protection is given to the file 

^c fU;o ^Tr:^^lo^T 1<:>Tro1 fhcf iiroc nrf^viniicl V in rnrp Tf is comDletclv 

overwritten in core. Overlay files should use common storage for 
data which must remain in core. 

Files in a given level may be loaded in any order, provided they 
are all loaded during the same execution of O function. Files in a 
given level need not be the same length; enough 'core is allocated 
for the largest file in the level. 

Loading with the O function is quite similar to loading a string 
01 programs m lue same iiciu usxng uie j^ iuin^nwu. xnx ^^^,^,.^^-^ 
is given below, where three files are loaded into the first level and 
two files into the second level, with one file being passed over. 

*OPT-0 
*FIELD-1 

* t <CTRL/P> t <CTRL/P> t <CTRL/P> t 
*OPT-0 

*FIELD-1 

* t <CTRL/P> t <CTRL/N> t <CTRL/P> t 
*OPT- 

Loading of a single overlay level is terminated with the RETURN 
key. Loading of an overlay level will automatically be terminated 
after eight files have been loaded. 

As with the L function, if the low-speed reader had been used 
in the example above, the CONTinue switch would have been 
pressed just before each CTRL/key combmation. 

When the main program is removed from core, linkage to its 
overlay files is broken. Therefore, for subsequent execution, mes 
must be reloaded with the main program.. 
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Loading Errors 

When LLDR deiecb an cr^or during loading of a program it 
types an error message of the following form: 

ERROR OOOn 

where n is a digit from 1 to 6, representing the type of error de- 
tected. If the error is fatal, control returns to the Disk Monitor 
If It IS not fatal, the user may be able to continue loading. 

Error No. Error Fatal? 

1 Attempt to load more than 64 Yes 
subprograms 

2 Field overflow j^q 

3 Subprogram with largest common Yes 
assignment not loaded first 

4 Checksum error ^q 

5 Improper or damaged tape or No 
reader error 

6 Disk overflow js^q 

NON-FATAL ERRORS - 

Error 2— During normal loading, loading may be continued in 
a different memory field. During overlay loading, the entire overlay 
level must be reloaded into a different memory field. 

Errors 4 and 5— During either type of loading, the user may 
reposition the faulty tape in the reader and type CTRL/P in re- 
sponse to the new up-arrow. If the error persists, reassembly or 
hardware maintenance will be necessary. 

Error 6— Occurs during normal loading only when the user is 
loading into the upper portion of field 0; the program which caused 
the error must be loaded into a different field. During overlay 
loading, the current overlay level will be closed with only the files 
that were loaded successfully. The file which caused the overflow 
(the last file read) and succeeding files will have to be loaded 
normally. 

Utility Functions (C, M, and U) 

CORE AVAILABILITY (C) 

The user may at any time request a list of the number of pages 
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available for loading in each core field. Ihe following example as- 
sumes that the user has a 16K computer (4 fields): 

*OPT-C 

00^3 
0036 
0036 
0036 
*OPT- 

The numbers listed are the octal number of free pages left in fields 
0, i, 2, and 3, respecuvely. 

STORAGE MAP (M) 

During the link-loading process, LLDR builds a list of external 
symbols; i.e., main program and subprogram entry points and their 
actual starting addresses. This list forms a complete storage map 
of all programs loaded, as shown below: 



*OPT-M 






MAIN 


10200 




READ 


01055 




WRITE 


01066 




lOH 


03031 




SETERR 


00000 


u 


XX X XX ■« 


00000 


u 



FLOAT 

FIX 

*OPT- 



05046 
04513 



Starting addresses are expressed in five octal digits— the first 

disit represents the memory field and the other four the address in 

that field. The U means that the stated subprogram has been cailea 

t i^.j-j ^^A +u o^o.f /->i-o mnct Kp Innde.fi before 

successful execution is possible. 

T ;.,+;^„ ^f +T,^ ctr^rca,- man mav be orematurelv terminatea oy 

typing CTRL/P. 

i'J-OO 



UNLOADED PROGRAM LISTING (U) 

This function is used to obtain a list of those subprograms which 
must still be loaded before successful execution is possible. All 
symbols flagged with a U in a storage map listing will be hsted as 
shown below: 

*OPT-U 

SETERR 

TTYIN 

TTYOUT 

HSIN 

HSOUT 

*OPT- 

This listing may also be prematurely terminated by typing 
CTRL/P. 

Exit Functions (E and S) 

The E function is used to cause a halt after all loading is com- 
plete. The S function is used to automatically start execution of 
the loaded program at the beginning of the main program. 

Both of these functions signal LLDR that loading is complete. 
They each cause any data which has been temporarily saved on the 
disk (except overlay files) to be read into core. 

When the E function is used, LLDR reads in all data tempo- 
rarily stored on the disk and then halts. The users' entire program 
(except overlay files) will be in core, ready for patching, execution, 
or saving on the disk. 

When the S function is used, LLDR checks for a subprogram 
called MAIN (such as a FORTRAN main program). If found, 
execution will automatically start at the starting address of MAIN. 
If MAIN is not found, the S function is executed as an E function. 
Overlay Loading 

In general, any group of subprograms which do not call each 
other (either directly or indirectly) may he loaded into the same 
overlay level. A typical situation follows: 

MAIN contains calls to A, B, C, D, E 

A contains calls to D, E, F 

B contains calls to D, G 

C contains calls to D, E, H 

D contains calls to E 

E, F, G, H, contain no external calls 
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J he above combination may De loaded as roiiows: 

Normal 

MAIN 

E 



Overlay 


Overlay 


A 


D 


B 


F 


C 


G 




H 



XL XJ (^uiilduib 3. K^aii 10 any OiiiCi liian j_,, it wOUju uc uCttci lO 

load D normally and put E in overlay 1. If F were to call B, the 
above loading situation would not work; A would be calling B 
indirectly, and these two are in the same overlay level. 

It is possible, however, to call another program in the same over- 
lay level only if the called program never attempts to return to tne 
calhng program. In this way, simple chaining may be achieved. 
For example, a very long FORTRAN main program can be split 
into sections with each section terminated by a call to the next. 
Such a situation is shown be1ow^ 



MAIN 






MATN3 

iviAuNh 
A, B. C 



calls A, B, C and is terminated by a call to 

MAIN2 

uaii.5 i-v, u, \^ aii\~i 13 Lciuiiiian^u uv o. Can lv^ 

\X A TXT -2 

calls A, B, C and is terminated by a call to 

MAIN4 



calls A, B, C and stops 
contain no external calls 



The above combination may be loaded as follows: 



Overlay 


Overlay 1 


MAIN 


A 


MAIN2 


B 


MAINS 


C 



MAINS 
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When the MAIN program is contained in an overlay area, the 
E function cannot be used unless MAIN is loaded last into the 
overlay level. The S function will work with the above combination 
since it works regardless of the order in which the segments of 
MAIN are loaded. 

With FORTRAN programming alone, a subprogram other than 
a MAIN program may not be chained. However, this is possible 
with careful assembly language programming. An example of such 
programming is shown below, where SUB is split into a two-part 
chain, SUB and SUB2. MAIN is a standard FORTRAN program 
containing calls to SUB in the form: 

CALL SUB (Al, A2, A3) 

SUB is written as a standard FORTRAN program which does 
part of the work for the entire subroutine chain, including pro- 
cessing arguments Al and A2. It is written with two arguments 
and concludes with Z, which is any dummy argument. After SUB 
has been compiled and before the intermediate compiler sym- 
bolic is assembled, it should be edited to include the insertions 
enclosed in brackets. 



(x^ C0MM\T2] 

ENTxRY SUB 
SUB^ BLOCK 2 



TAD SUB /SAVE RETURN FIELD 

DCA X 

TAD , C-2 /-g*XC. OF ARCS TO PASS 

TAD SU3# /SAVE ARGUMEiMT ADDRESS 

_DCA X# 

CALL i , SUBS 

A R G Z 
END 



SUB2 is also a standard FORTRAN program containing the 
latter portion of the entire subroutine, including the processing of 
argument A3. The actual contents of SUB2 is coded in FORTRAN 
just as if it were a subroutine taking one argument. After SUB2 
has been compiled, the compiler symbolic output is edited as 
shown below: 
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SUB 2. 



COMMN 


2J 


E\TTRY 


SUBS 


BLOCK 


2 


TAD 


X 


DCA 


SUB2 


TAD 


X# 


DCA 


OVj Ljrr 



/REPLACE ARG POINTER' 



/COMTINUE NORMAL FORTRAN 
/CODE;. CONCLUDING VJITH 



RMD 



Us^r Pro^raw! Execution 

If the user chooses not to execute his program automatically 
with the S function, he may determine the exact address for the 
start (using the storage map or assembly listing), and execute his 
program, using the console switches or the Disk Monitor. 

At execution time, the Run-Time Linkage Routines must be in 
core. These routines accomplish the necessary linkage for all calls 
to and returns from external subprograms, all off-page indirect ref- 
erences, and all off -field references (including those to common 
and passing subroutine argum.ents). 

If. during execution of a user program, a call is made to a non- 
existent program! or subprogram, an unconditional halt will occur 
and control will return to the Disk Monitor. This error is fatal 

Program execution may be terminated at any time by typing 
CTRL/C. However, when CTRL/C is tvoed. all overlav files 
stored on the disk are lost. 

ijioragc rvliociitioii 

The following core availability map allows the user to plan his 
loading. 

Field 
0000-0777 Used by the Run-Tim.e Linkage Routines and 
not available to the user for loading. 



4000-7577 Residence of LLDR. during loading. Avail- 

.^ui^ *^_ „^«~,.^i 1 3: /I i x: - -.. . . _jc 

auic iui liCiiHd! nynKMiiv iijv ymiiwi-AnQ nKf sis 

temporary disk storage), but not available for 

overlav loading. 
^i^r\f\ nnnn t^;„i, a/t — u — -„„-,^„i :j_.. ,. 

i \J\J\j- I I I I i^iajt iViUilitUi pCiliidlieilL lCi)iUeilCe. 



ERROR MESSAGES 
SABR 

Because SABR is a one-pass automatic paging assembler object 
errors are difficult to correct. If there are errors in the source, the 
assembled binary code will be virtually useless. Both errors E and 
S are fatal, assembly halts when they are encountered. The other 
types of errors are not fatal, but they cause the line in which they 
occur to be treated as a comment and thus essentially ignored. An 
address label on such a line will remain undefined and no space is 
reserved in the binary output for the erroneous data. 

During the assembly pass error messages are typed on the tele- 
type as they occur. 

C AT LOG +0004 

This means that an error of type C has occurred at the fourth 
instruction after the location tag LOG. This line count includes 
comment lines and blank Hues. 

During the listing pass, the error is typed in the address field 
of the instruction line. 

The following error messages may occur. 

A Too many or too few ARGs follow a GALL statement. 

G An illegal character appears on the line. This could possibly 
be an 8 or 9 in an octal digit string or an alphabetic char- 
acter in a digit string. 

M A symbol is muhiply defined (occurs only during Pass 1). 
It is impossible to resolve multiple definitions during Pass 
2; therefore, listings of programs which contain multiple 
definitions will have urmiarked errors. 

I An illegal syntax has been used. Below are listed the types 
of illegal syntax that may occur. 

a. A pseudo-op with improper arguments. 

b. A quote mark with no argument. 

c. A non-terminated text-string. 

d. A memory reference instruction with improper ad- 
dress. 

e. An illegal combination of micro-instructions. 
E There is no END statement. 

S either one of three things: 

a. The symbol table has overflowed. This can be cor- 
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reeled by using fewer symbols, using shorter sym- 
bols, or by breaking the program into smaller parts. 

b. Common storage has been exhausted. 

c. More than 64 different user-defined symbols have 
occurred in a core page. 

d. More than 64 external symbols have been declared. 

One further type of error may occur. This is an undefined sym- 
bol. Because SABR is a one-pass assembler, an undefined symbol 
cannot be determined until the end of the assembly pass, so the 
error diagnostic UNDF is given in the symbol table listing. 

LINKING LOADER 

If durincf the rirocess of loadin*' a ^^ro^ram. or subi^rooram the 
Linking Loader encounters an error, the user is notified by an error 
message; the partially loaded program or subprogram is ignored, 
removed from the field, and core is freed. The error messages are 
typed out in the form 

ERROR XXXX 

where XXXX is the error code number. 

0001 More than 64io subprogram names have been 
seen by the Loader (64io subprogram names 
is the capacity of the Loader's symbol table). 

0002 The current field is full, or load was to non- 
existent memory. 

0003 The current subprogram has too large a 
COMMON storage assignment. (Subprogram 
with largest common storage declaration 
must be loaded first.) This is a semi-fatal 
error. Re-initialize the Linking Loader as ex- 
plained below and reload the programs in the 
proper order. 

0004 Checksum error in input tape. If the error 

0005 Illegal Relocation Code has been encoun- 
tered. This can occur only if the relocatable 
binary tape is b^d or if the user is using it 



1 A in 



improperly (e.g., not starting at the beginning 
of the tape, or reader error, or punch error). 
If the error persists, reassembly is necessary. 

Recovery from errors 2, 4, and 5 is accomplished by reposition- 
ing the tape in the reader to the leader code at the beginning of the 
subprogram and then pressing CONTinue. When attempting to 
recover from one of these errors, no other program should be 
loaded before reloading the program which caused the error. Ob- 
viously, on Error 2 a different field should be selected before press- 
ing CONtinue. 

The entire loading process may be restarted via the console 
switches, at any time by reinitializing the Linking Loader. To do 
this, set the console switches as follows: Data Field = h (the field 
where the Linking Loader resides), Instruction Field = h, Switch 
Register = 6200; then press LOAD ADDress and START. 

DISK LINKING LOADER (See section entitled, DISK LINKING 
LOADER) 

LIBRARY PROGRAM 

During execution, the Library programs check for certain errors 
and type out the appropriate error messages in the form 

"XXXX" ERROR AT LOG NNNN 

where XXXX specifies the type of error, and NNNN is the loca- 
tion of the error. When an error is encountered, 'execution stops, 
and the error must be corrected. 

When multiple error messages are typed, the location of the 
last error message is relevant to the user program. The other error 
messages are to subprograms called by the statement at the rel- 
evant location. 

Error Code Explanation 

"ALOG" Attempt to compute log of negative number 

"ATAN" Result exceeds capacity of computer 

"DIVZ" Attempt to divide by ' 

"EXP" Result exceeds capacity of computer 

"FIPW" Error in raising a number to a power 

"FMTl" Multiple decimal points 

"FMT2" E or . in integer 
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Error Code Explanation 

"FMT3" Illegal character in I, E, or F field 

"FMT4" Multiple minus signs 

"FMT5" Invalid FORMAT statement 

"FLP\V" Negative number raised to floating power 

"FPNT" Floating point error: may be caused by 

Division by zero; floating point overflow; at- 
tempt to fix too large a number. 
"SQRT" Attempt to take root of a negative number 

To pinpoint the location of a Library execution error: 

1 . From, the Storage Map, determine the next lowest numbered 
location (external symbol) which is the entry point of the 
program or subprogram containing the error. 

2. Subtract in octal the entry point location of the program or 
subroutine containing the error from the LOC of the error 
in the error message. 

3. From the assembly symbol table, determine the relative ad- 
dress of the external symbol found in step 1 and add that 
relative address to the result of step 2. 

4. The sum of step 3 is the relative address of the error, which 
can then be compared with the relative addresses of the 
numbered statements in the program. 

THE SUBPROGRAM LIBRARY 

The Library is set of subprograms which may be CALLed by 
any FORTRAN/SABR program. The relocatable binary versions 
of these subprograms are arranged in two paper tapes for the 
convenience of the user. Part 1 contains those subprograms which 
are used by almost every FORTRAN/SABR program.. All the 
Library subprograms are described below. 

Many of the subprograms reference the Floating-Point Ac- 
cumulator located at ACH, ACM, ACL (20, 21, 22 of field 1). 

READ is called to initialize the I/O handler before reading data. 
yy xs^i I c. IS caueu lo miiiaiize me i^kj nanoier oeiore writing oata. 
lOH is called for each item to be read or written. lOH must also 

nf pnllPrl M/ltll o Tf^m ormimp>t->+ tr» tfrmirxnto qti inT->n+_/-»n+TMif- oo_ 

^ *' ■.^M-^.Lw^* TT'v.A C4. ^jvx \./ KA^ ^*^JLi.X^lX\^ X.KJ CWX XX±1 XI L4 k V tXlX XXXL/LXV Vy tX I. Ly LX C O^^ 

quence. 

14-74 



All of these programs require that the Floating-Point Accumu- 
lator be set to zero before they are called. 



/n=DEVICE NUMBER 
/fa=ADDR OF FORMAT 



CALL 


2, READ 


ARG 


(n 


ARG 


fa 


• • • 




CALL 


1, lOH 


ARG 


data 1 



CALL 
ARG 


1, lOH 

data 2 


• • • 




• • • 




CALL 
ARG 


1, lOH 



• • • 




CALL 

ARG 

ARG 


2, WRITE 

(n 

fa 



/data 1=ADDR OF HIGH 
/ORDER WORD OF 
/FLOATING POINT 
NUMBER 



The following device numbers are currently implemented: 

1 (Teletype keyboard/printer) 

2 (High-speed reader/punch) 

Floating Point Arithmetic 

FAD is called to add the argument to the Floating-Point Ac- 
cumulator. 



CALL 
ARG 



1, FAD 

addres 



FSB is called to subtract the argument from the Floating-Point 
Accumulator. 



CALL 
ARG 



1, FSB 

addres 
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FMP is called to multiply the Floating-Point Accumulator by 
the argument. 

CALL 1, FMP 

ARG addres 

FDV is called to divide the Floating-Point Accumulator by the 
argument. 

CALL 1, FDV 

ARG addres 

CHS is called to change the sign of the Floating-Point Accu- 
mulator. 

CALL 0, CHS 

All of the above programs leave the result in the Floating-Point 
Accumulator. The address of the high-order word of the floating- 
point number is "addres". 

STO is called to store the contents of the Floating-Point Ac- 
cumulator in the argument address. The floating-point accumulator 
is cleared. 

CALL L STO 

ARG storag /storage ADDRESS WHERE 

/RESULT IS TO BE PUT 

IF AD is called to execute an indirect floating point add to the 
Floating-Point Accumulator. 

CALL 1, IFAD 

ARG ptr /ptr=2-word POINTER 

/TO HIGH ORDER 
/ADDRESS OF FLOATING 
/POINT ARGUMENT 

ISTO is called to execute an indirect floating point store. 
/^ A T T 1 Tcnrr^ 

ARG ptr 

CLEAR is called to clear the Floating-Point Accumulator. The 

14-76 



FLOT is called to convert the integer contained in the AC 
(processor accumulator) to a floating point number and store it in 
the Floating-Point Accumulator. 

CALL 0, FLOT 

FIX is called to convert the number in the Floating-Point Ac- 
cumulator to a 12-bit signed integer and leave the result in the AC. 

CALL 0, FIX 

ABS leaves the absolute value of the floating point number at 
"addr" in the Floating-Point Accumulator. 

CALL 1, ABS 

ARC addr 

Integer Arithmetic 

MPY is called to multiply the integer contained in the AC by 
the integer contained in "addr." The result is left in the AC. 

CALL 1, MPY 

ARC addr 

DIV is called to divide the integer contained in the AC by the 
integer contained in "addr." The result is left in the AC. 

CALL 1, DIV 

ARC addr 

IREM leaves the remainder from the last executed integer divide 
in the AC. 

CALL 1, IREM 

ARC 

(The argument is ignored.) 

lABS leaves the absolute value of the integer contained in 
"addr" in the AC. 

CALL 1, lABS 

ARG addr 

IRDSW reads the value set in the console sv^^itch register into 
the AC. 

CALL O, IRDSW 
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Subscripting 

SUBSC is called to compute the address of a subscripted vari- 
able. The address is left in the AC. When SUBSC is called, it 
assumes that the AC contains the first dimension of the array. 
This dimension should be positive if the subscripted variable is an 
integer, and negative if the subscripted variable is a floating point 
number. 

Assume S is a 20s X 20.s floating-point array. 



TAD 


(2( 


) 




CIA 
















ARG 


il 




/il= ADDRESS OF 2ND 
/SUBSCRIPT 


ARG 


i2 




/i2= ADDRESS OF 1ST 
/SUBSCRIPT 


ARG 


base 


/BASE ADDRESS 



/OF ARRAY 

Functions 

SQRT leaves the square root of the floating-point number at 
"addr" in the Floating-Point Accumulator. 



CALL 
ARG 



1,SQRT 

addr 



-argument at "addr" in the Floating-Point Accumulator. 



CALL 
ARG 



1, SIN 
addr 



ATAN leaves the arctangent of the floating-point number at 
"addr" in the Floating-Point Accumulator. 



CALL 
ARG 



1, ATAN 
addr 



i-vi^OUi iCciveb LiiC iiiitUxai lOgaiitiiiii Oi tiic iiOdlmg-pOliiL ixuiii- 

ber of "addr" in the Floating-Point Accumulator. 



CALL 
ARG 



1, ALOG 

EGuF 






EXP raises "e" to the power specified by the floating-point num- 
ber at "addr" and leaves the result in the floating-point accu- 
mulator. 



CALL 
ARG 



1, EXP 
addr 



All of these subprograms require that the floating-point accu- 
mulator be set to zero before they are called. 

POWER (IIPOW, IFPOW, FIPOW, FFPOW) 

These routines are called by FORTRAN to implement expo- 
nentiation. The address of the first operand is in the AC (floating- 
point or processor depending on mode), and the address of the 
second is an argument. The address of the result is in the appro- 
priate AC upon return. 



FUNCTION 
NAME 


MODE OF 

OPERAND 1 

(BASE) 


MODE OF 
OPERAND 2 
(EXPONENT) 


MODE OF 
RESULT 


IIPOW 
IFPOW 
FIPOW 
FFPOW 


INTEGER 
INTEGER 

FLOATING POINT 
FLOATING POINT 


INTEGER 
FLOATING POINT 
INTEGER 
FLOATING POINT 


INTEGER 
FLOATING POINT 

FLOATING POINT 
FLOATING POINT 



CALL 2, FFPOW 

ARG addr 2 /ADDRESS OF OPERAND 2 

LIBRARY ORGANIZATION 



Part 1. 



Part 2. 



"lOH" 
"FLOAT" 



"INTEGER" 
"UTILITY" 

"ERROR" 

"SUBSC" 
"POWERS" 

"SQRT" 
"TRIG" 

"ATAN" 



contains lOH, READ, WRITE 
contains FAD, FSB, FMP, FDV, STO, 

FLOT, FLOAT, FIX, IFIX, 

IFAD, ISTO. CHS. CLEAR 
contains LREM. ABS. lABS, DIV. 

MPY, IRDSW 
contains TTYIN, TTYOUT, HSIN, 

HSOUT, OPEN, CKIO 
contains SETERR, CLRERR, ERROR 

contains SUBSC 

contains IIPOW, IFPOW, FIPOW, 

FFPOW, EXP, ALOG 
contains SQRT 

contains SIN, COS, TAN 
contains ATAN 
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DECT APE I/O ROUTINES 

RTAPE and WTAPE (read and write tape) are the DECtape 
read and write subprograms for the 8K FORTRAN and 8K SABR 
systems. The subprograms are furnished on one relocatable binary- 
coded paper tape which must be loaded into field by the 8K 
Linking Loader, where they occupy one page of core. 

RTAPE and WTAPE allow the user to read and write any 

structured data blocks. Many such data blocks may be stored on a 

single tape, and a block may be from 1 to 4096 words in length. 

RTAPE and WTAPE are subprograms which may be called 

with standard, explicit CALL statements in any 8K FORTRAN or 

arated by commas. The arguments are the same for both subpro- 
grams and are formatted in the same manner. They specify the 
following: 

a. DECtape unit number (from to 7) 

b. Number of the DECtape block at which transfer is to 
start. The user may direct the DECtape service routine to begin 
searching for the specified block in the forward direction rather 
than the usual backward direction by making this argument the 
two's complement of the block number. 

c. Number of words to be transferred (1 ^N^4096) 

d. Core address at which the transfer is to start. 



_i_i ^_i_ i„ T> T A nt:: ^^^ 

bltlLClllCHLS LU i\. i, J-Vl J-^ akl<J. 



WTAPE are written in the following format (arguments are taken 

CALL RTAPE (6, 128, 388, LOCA) 

In 8K SABR, they are written in the following format (arguments 
may be either octal or decimal numbers): 

CALL 4, WTAPE /WOULD BE SAME FOR RTAPE 
ARG (6 /DATA UNIT NUMBER 
ARG (200 /STARTING BLOCK NUMBER IN 

OCTAL 

i 1-. j~i /^'r\A /wrr^T^r-^Q nr/^ TJC TnT> A X^ C' >-•' C >"> ^f > L' ' "4 

AKO (dU'4- / yyKjr^ub ikj oc iixj^^iNoi xIxvivi^jl/ 

IN OCTAL 

, TRANSFER 
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In these examples, LOCA and LOCB may or may not be in COM- 
MON. 

As a typical example of the use of RTAPE and WTAPE, as- 
sume that the user wants to store the four arrays A, B, C, and D 
on a tape with word lengths of 2000, 400, 400, and 20 respectively. 
Since PDP-8 DECtape is formatted with 1612 blocks (numbered 
1-2700 octal) of 129 words each (for a total of 207,948 words), 
A, B, C, and D will require 16, 4, 4, and 1 blocks respectively. 
Each array must be stored beginning at the start of some DECtape 
block. The user may write these arrays on tape as follows: 

CALL WTAPE (0, 1, 2000, A) . 
CALL WTAPE (0, 17, 400, B) 
CALL WTAPE (0,21,400, C) 
CALL WTAPE (0, 25, 20, D) 

The user may also read or write a large array in sections by 
specifying only one DECtape block (129 words) at a time. For 
example, B could be read back into core as follows: 

CALL RTAPE (0, 17, 258, B(l)) 
CALL RTAPE (0, 19, 129, B(259)) 
CALL RTAPE (0, 20, 13,B(388)) 

As shown above, it is possible to read or write less than 129 
words by starting at the beginning of a DECtape block. It is im- 
possible, however, to read or write starting in the middle of a 
block. For example, the last 10 words of a DECtape block may 
not be read without reading the first 119 words as well. 

A DECtape read or write is normally initiated with a backward 
search for the desired block number. To save searching time, the 
user may request RTAPE or WTAPE to start the block number 
search in the forward direction. This is done by specifying the 
negative of the block number. This should be used only if the 
number of the next block to be referenced is at least fourteen block 
numbers greater than the last block number used. For example, 
if the user has just read array A and now wants array D, he may 
write: 

CALL RTAPE (0, 1, 2000, A) 
CALL RTAPE (0, -25, 20, D) 
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DISK I/O ROUTINES 

ODISK and CDISK (open disk and close disk) and RDISK and 

WDISK (read disk and write disk) are the four DECdisk (DF32/ 
DS32) input and output subprograms for the 8K FORTRAN and 
8K SABR systems. They are furnished on one relocatable binary- 
coded paper tape which is loaded into core using the Linking 
Loader, where they occupy eight pages of core. 

ODISK and CDISK 

ODISK is used to open (activate) a file (named using the Link- 
ing Loader D function) so that the file can be read or written using 
RDISK or WDISK. CDISK will close (deactivate) a file which was 
opened with ODISK so that the contents of the file cannot be 
altered. 

The ODISK and CDISK subprograms may be called with stan- 
dard, explicit CALL statements, in any 8K FORTRAN or 8K 
SABR program. ODISK requires one argument when opening a 
file. However, it requires two arguments when specifying or changing 
the size (in blocks) of a file. CDISK always requires only one 

The first argument of both ODISK and CDISK is the logical 
number (from 1 thru 10 inclusive) of the file as it was named using 
the Linking Loader. The second argument to ODISK is the num- 
ber -of blocks (from 1 thru 128) to be saved for the file. 

In 8K FORTRAN, the CALL statements to ODISK and 
CDISK are written in the following format (arguments must be 
decimal integer numbers): 

CALL ODISK (1) 

when opening a file, or 

CALL ODISK (1, 5) 
when specifying or changing the size of a file, and 

CALL CDISK (1) 

when closing an opened file. 

In 8K SABR, the CALL statements to ODISK and CDISK are 
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written in the following format (arguments may be either octal or 
decimal numbers): 

CALLLODISK 

ARG (1 /LOGICAL FILE NUMBER 

when opening a file, or 
CALL 2, ODISK 

ARG (1 /LOGICAL FILE NUMBER 

^RG (5 /NUMBER OF BLOCKS, OCTAL 

when specifying or changing the size of a file, and 
CALLLCDISK 
ARG (1 /LOGICAL FILE NUMBER 

when closing an opened file. 

ODISK prepares the file named for data transfer. When running 
the user program using the Disk Monitor System, ODISK uses 
Disk Monitor I/O and the three scratch blocks on disk zero for a 
window whenever a file is opened. 

All open files: should be closed before terminating program 
execution, thus preserving the contents of the files. 

RDISK and WDISK 

The RDISK and WDISK subprograms may be called with 
standard, explicit CALL statements in any 8K FORTRAN or 8K 
SABR program. The ODISK subprogram must be used to open 
the file concerned before using the RDISK or WDISK subprograms. 

Each of these subprograms requires four arguments, arranged 
as listed below: 

1 . Logical file number (determined using the Linking Loader 
D function), 

2. Logical block of the file number (block number of the file 
where data transfer is to begin), 

3. Number of words to be transferred (from 1 thru 4096) 

4. Core address where data transfer is to start (field 0). 

Both RDISK and WDISK require the arguments above. 

In 8K FORTRAN, the CALL statements to RDISK and 
WDISK are written in the following format (arguments are taken 
as decimal numbers): 

CALL RDISK (4, 2, 55, LOCA) 
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when reading file 4, beginning with block 2. transferring 55 words, 
starting at the location of tag LOCA, which may be the name of an . 
array defined in a DIMENSION statement. WDISK would be for- 
matted in the same fashion. 

In 8K SABR, the CALL statements to RDISK and WDISK are 
written in the following format (arguments may be either octal or 
decimal numbers): 

ARG (4 /LOGICAL FILE NUMBER 

ARG (2 /BLOCK OF FILE 

ARG LOCA /CORE ADDRESS OF START, FIELD 

WDISK would be formatted in the same fashion. 

A variable number of words may be transferred. It is not neces- 
sary to transfer in 200-word blocks, as with the Disk Monitor 
System. 

DEMONSTRATION PROGRAM USING LIBRARY 
ROUTINES 

The followins demonstration Drosram is a SABR program 

r^AA tTT'^. i^ + ^fr^*. *^,^«-iUpt-r; r»OnVP^'*' t^P ''PQll^'*' IP + O flo^ + 1 ^ C-"'^' ""*" 

and type the result in both integer and floating-point format. The 






tiic iyiSJV iviuiiiuwi o^otciir was uavva \au.tiAi< aoowiiic/ij , u.iis^ ».j.±w 

assembled program was then loaded and run using the 8K Linking 
Loader. 

The system configuration consisted of a PDP-8/I with 8K 
words of core, DF32 Disk, Teletype, and high-speed reader and 
punch. The Disk Monitor System, Symbolic Editor, and SABR 
Assembler were available on the disk. The Teletype paper tape 
reader was used during assembly for demonstration (printout) 
purposes. 

Comments are interspersed throughout the listing to provide a 
step-by-step analysis. 
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After writing the source program it was printed and punched 
using the Symbolic Editor. 

CTRL/C was typed after the asterisk to return control to the 
Disk Monitor. 

SABR was transferred from the disk into core. 

I'hc source program tape was placed in the teletype reader. 

When started, SABR printed its identification and initial di- 
alogue questions which were answered. 

The TTY reader miist be set to START within 3 seconds after 
typing N to the last question. Otherwise, as was the case here, 
the error message will appear, and SABR must be restarted at loca- 
tion 0200, as was done here. 

The initial dialogue questions are repeated and again answered. 

After typing the N to the last question, the TTY reader was 
immediately set to START and assembly commenced. 

The Symbol Table concluded the assembly. 

Here the source program tape was again placed in the TTY 
reader and the CONTinue switch was depressed. The program hst- 
ing was printed. 

The 8K Linking Loader was loaded into core using the Binary 
Loader, and started at location 0200 of field 1 . 

When started, the Linking Loader printed its identification. 

Library Tape Part 1 was loaded into core by placing the tape 
in the TTY reader, setting the reader to START, and pressing 
CONTinue. 

After loading the library subprograms, switch register bit 1 was 
set to 1 , and CONTinue was pressed to get the storage map of the 
programs and subprograms loaded into core. 

The last two numbers represent the number of free (available) 
pages in each core field — 0004 free pages in field 0, and 0036 
free pages in field 1 . 

To execute the compiled program, the switch register was set to 
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01000, the starting address of the main program (determined 
from the Storage Map). 

The LOAD ADDress switch was pressed and then START 
switch was pressed. 

The program ran as planned, producing the desired results. 



ENTRY START 

START.* CALL 0,OPEM /INlTiALiiiE 10 DEVICES 

TAD A /COMPUTE C == A + 3 

TAD B 

DCA C 

CALL 1., FLOAT /CONVERT TO FLOATING POINT 

ARC C 

CALL 1..ST0 

ARC D 

CALL 2.,VRITE /INITIALIZE THE 10 HANDLER 

ARC N /DEVICE NUMBER 1 = TELETYPt 

ARC FORMT /FORMAT. SPECIFICATION 

CALL ijIOH /TYPE THE INTFCErj .\^.,^\zj^.i 

t\ R 8 y 

CALL UIOH /COiMPLETE THE IC 



FORMT/ TEXT "C'lHii, ANJSWERS An£ ' .. I 5 j r 7 . 5 ) ' 

N/ 1 

A. fl 

B, 2 

]), BLOCK 3 

EMD 



Demonstration Program 
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.SA31 
.SABR 

PDP-8 SABR DEC-03-A2B2-12 

HIGH SPEED READER? M 

HIGH SPEED PUMCH? Y 

LISTING OW HIGH SPEED PUNCH? N 



E AT 



+ 0000 



HIGH SPEED READER? M 

HIGH SPEED PUNCH? Y 

LISTING ON HIGH SPEED PUNCH? N 



0840 


5047 FO 


0241 


2410 


0242 


0540 


0243 


0116 


0244 


2327 


0245 


0522 


0246 


2340 


0247 


0122 


0250 


0547 


02 51 


5411 


02 52 


6554. 


0253 


0667 


0254 


5662 


0255 


5100 


0256 


0001 N^ 


0257 


0002 A> 


02 60 


0002 Bj 


0261 


0000 Cj 


0262 


i3<Z0Q Dj 


0263 


0000 


0264 


0000 


A 


0257 


5 


0260 


C 


0261 


D 


0262 


FLOAT 


0000EXT 


FORMT 


0240 


lOH 


0000EXT 


N 


0256 


OPEN 


0000EXT 


START 


0200 EXT 


STO 


0000EXT 


WRITE 


0000EXT 



TEXT "('THE ANSWERS ARE % I 5^ F7. 2 )" 



1 
2 
2 

BLOCK 



, Demonstration Program 
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0200 
0201 
0202 
0203 
0204 
020 5 
020 6 

020 7 
0210 
0211 
0212 
0213 

021 A 
0215 
021 6 
0217 

0221 
0222 
0223 
0224 
0225 
0226 
0227 
0230 
0231 
0232 

(Tip T -3 

0234 
0235 
0236 
0237 



4033 

0002 06 

1257 

12 60 

3261 

4033 

3103 

6201 

0261 

4033 

0104 06 

6201 

0262 

4033 

0205 06 

6201 5 



06 
05 
01 



05 
01 



05 
01 



05 
01 



6201 

0240 
4033 
0106 06 
6201 
0261 
4033 
0106 06 
6201 05 
0262 01 

621 1 
0000 
7402 



STAR,T> CALL 

TAD 
TAD 
DCA 
CALL 

ARC 

r* A T T 

ARC 

CALL 

ARG 

ARG 

CALL 

ARG 

CALL 

ARG 

rt A T T 

ARG 
KLT 



ENTRY START 

0^OPEN /INIT 10 DEVS 

A /C = A + B 

B 

C 

1 J FLOAT /CONVT TO FP 

C 

l^STO 

2^WRITE /INIT 10 HMDLR 

N /DEV MR 1 = TELE 

FORMT /FORMAT SPEC 

1> lOH /TYPE INTGER NR 

C 

1^ lOH /TYPE FP NR 

D 

IjIOH /COMPLETE 10 





=DP-8 LINKING LOADER DEC-08-A2B3-0 6 



START 

OPEN 

FLOAT 

STQ 

WRITE 

lOH 

READ 

SETERR 

ERROR 

TTYGUT 

HSOUT 

TTYIN 

FDV 



01000 

06125 

50 34 

4444 

01302 

03142 

01271 

05200 

06303 

06027 

60 55 

06000 

60 45 

0471 1 

05227 



xoHstration Program 
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IFAD 


051 16 


FMP 


04623 


ISTO 


5061 


FLOT 


05153 


FAD 


04010 


DIV 


05445 


IREM 


05516 


FSB 


04000 


FIX 


.04510 


IFIX 


04556 


CHS 


05211 


ABS 


05636 


lABS 


05670 


^PY 


05400 


IRDSW 


0571 3 


CKIO 


06121 


EXIT. 


06142 


CLRERR 


06231 


0004 




00 36 





THE AMSWER3 ARE 4 4.00 



Demonstr^ion Program 
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Chapter 15 

8K FORTRAN 
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INTRODUCTION 

This chapter presents a version of FORTRAN II specifically 
designed for the PDP-8/I, -8/L, -8, -8S and -5 computers 
with at least 8K words of core memory, and a Teletype, with an 
optional high-speed reader and punch. 

It is assumed that the reader is familiar with the basic concepts 
of FORTRAN programming. Several excellent elementary texts 
are available, such as, "FORTRAN Programming", by Frederic 
Stuart, published by John Wiley and Sons, New York, 1969. 

8K FORTRAN (an acronym for FORmula TRANslation) is 
used interchangeably to designate both the 8K FORTRAN lan- 
guage and the translator or compiler. 

The language enables the programmer to express his problem 
using Enghsh words and mathematical statements similar to the 
language of mathematics and yet acceptable to the computer. The 
compiler translates the programmer's source program into sym- 
bolic language (SABR). The symbolic version of the program is 
then assembled into (relocatable) binary code, which is the 
language of the computer. The binary code is output on paper tape 
and loaded into the computer for execution. 

The 8K FORTRAN system has the following features: 

1. Subroutines 

2. Two levels of subscripting 

3. Function subprograms 

4. Input/ output supervisors 

5. Relocatable output adapted to the Linking Loader 

6. COMMON statements 

7. I, F, E, A, X, and H format specifications 

8. Arithmetic and trigonometric library subroutines 
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The 8K FORTRAN system consists of a one-pass FORTRAN 
Compiler, the SABR Assembler, the Linking Loader, and a library 
of subprograms. If the equipment configuration includes a disk and 
the Disk Monitor System, the Disk Linking Loader (LLDR) 
should be used to load and execute 8K FORTRAN programs. 
LLDR is described in Chapter 15. 



FORTRAN STATEMENTS 

(columns 7 through 72). Each statement must begin on a separate 
line. 

FORTRAN statements are of five types: 

1. Arithmetic, which define calculations to be performed; 

2. Control, governing the sequence of execution of statements 

M'ttVsip c^ -rwnnrarp. • 

3. In^ut / 0iitvut directin'* communication between the oro- 

arcim and innnt/nntmit Hf^virps" 

4. Specification, which describe the form and content of data 
within the program; 

5. Subprogram, defining the form and occurrence of subpro- 
grams anu suurouunes. 

When programs are prepared on-line with the Symbolic Editor, 
statements are coded following a TAB character (generated by 
holding down the CTRL key and depressing TAB) or space, unless 
a statement number is used. 

Except for data within a Hollerith fidd, (see Input/Output 
Statements), spaces are ignored and may be used freely to organize 
data into columns for easier readino^. 

Each statement must start on a separate line. Any statement 
may be preceded by a positive number of from one to four digits 
which serves subsequently as an address label. 
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C - THIS PROGRAM W:.LL SORT AN ARRAY OF NUMBERS 

C INTO ASCENDING ORDER. 

C FIRST READ THE NUMBERS;. THEN SORT THE 

C NUMBERS;. LAST;. WRITE THE NUMBERS IN ORDER. 

C 





DIMENSION AC 100) 




ND=2 




N=100 




DO 10 1=1 ^N^ 2 


10 


READ CND;.12) A(I)^ACI + 1) 


12 


FORMAT (2E12.0) 




DO 30 K=2;.N 




J=K-1 


20 


IF (AC J)-A( J+1 )) 30^30^22 


22 


TEM=ACJ) 




ACJ)=ACJ+1) 




AC J+1 )=TEM 




J=J-1 




IF CJ) 30;.30;.20 


30 


CONTINUE 


40 


DO 42 1=1^ N^ 2 


42 


WRITE CND;.44) ACD^ACI + l) 




STOP 


44 


FORMAT C2E16-.8) 




END 



Figure 16-1 A Sample FORTRAN Program 

Statement Numbers 

Statement numbers, when used, are coded in columns 2 through 
5 of the 72 column line, they are typed preceding the statement, 
and separated from it by a space. When using the Symbolic Editor, 
CTRL/TAB causes a jump over the statement number column. 

Statement numbers may be assigned non-sequentially, but no 
two statements can have the same number. Statement numbers are 
limited to a value of 2047 or less. 

Line Continuation Designator 

Statements too long for the statement field or a single Teletype 
line, may be continued. Continued portions of statements may not 
be given hne numbers, and must have an alphanumeric character 
(other than 0) in column 6. In Teletype input with the Symbolic 
Editor a digit from 1 to 9 must be used following the CTRL/TAB. 

Comments 

The letter C in column 1 of a line designates that line as a com- 

15-7 



ment line. A comment has no effect on program compilation, but 
appears in the program listing. There is no limitation on the number 
of comment lines which may appear in a given program. 

ARITHMETIC STATEMENTS 

Constants and variables, identified as to type and connected by 
logical and arithmetic operators form expressions: one or more 
expressions form an arithmetic statement. Arithmetic statements 






V=E 

Wiierc V IS a variable name (subscripted or nonsubscripted), E is 
an expression, and = is a replacement operator. The arithmetic 
statement causes the FORTRAN object program to evaluate the 
expression E and assign the resultant value to the variable V. Note 
that = signifies replacement, not equality. Thus, expressions of the 
form : 

A=A+B 
A=A*B 

is to be changed. 
For example: 

Y=l .1+Y 

r — /\-r-'i-c;T"o»-T-/\T-c:;,vy 

X(N)=EN*ZETA*(ALPHA+EM/PI ) 

The expression value is made to agree in type with the variable 
before replacement occurs. For example, in the statement: 

META=W*(ABETA+E) 

if META is an integer and the expression is real, the expression 
value is truncated to an integer before assignment to META. 

The following characters are used in the FORTRAN language.^ 

2 Appendix B2 lists the octal and decimal representations of the FORTRAN 
character set. 
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1. The alphabetic characters, A through Z. 

2. The numeric characters, through 9. 

3. The special characters: 



f 



$ 


) 


% ■ 


+ 


& 


— 


* 


/ 


4J. 


• 


# ■ 
> 


> 
< 


; 


> 


? 


(space) 



Constants 

Constants are self-defining numeric values appearing in source 
, statements. Two types of constants, integer and real, are permitted 
in a FORTRAN source program, 

INTEGER CONSTANTS 

Integer (fixed point) constants are represented by a digit string 
of from one to four decimal digits, written with an optional sign, 
and without a decimal point. An integer constant must fall within 
the range -2047 to +2047. For example : 

47 

+47 (+ sign is optional) 

-2 

0434 (leading zeros are ignored) 

—0 (same as zero) 

REAL CONSTANTS 

Real constants are represented by a digit string, an explicit 
decimal point, an optional sign, and possibly an integer expo- 
nent to denote a power of ten (7.2 x 10^ is written 7.2E+03). 
A real constant may consist of any number of digits but only the 
leftmost eight digits appear in the compiled program. Real con- 
stants must fall within the range .14 X IQ-^s to 1.7 X lO^s. 
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+4.50 (+ is optional) 

4.50 

-23.09 

-3.0E14 (same as -3.0 X lO^'') 

Variables 

A varaible is a named quantity whose value may change during 
execution of a program. Variables are specified by name and type. 
The name of a variable consists of one or more alphanumeric 
characters the first of which must be alphabetic. Only the first five 
characters are interpreted as defining the variable name, the rest 



LAI W Afci-iV/ J. W*4J.. 



The type of variable (integer or real) is determined by the 
first letter of the variable name. A first letter of I, J, K, L, M, or 
N indicates an integer variable, and any other first letter indicates 
a real variable. Variables of either type may be either scalar or 
array variables. A variable is an array variable if it first appears in 
a DIMENSION statement. 

INTEGER VARIABLES 

Integer variables undergo arithmetic calculations with autom.atic 

Liuiiwaiiuii ui any iiaciiciiai pai l. jl kji v^Aaiiipiw, xl tiiw »^uj.iwxn. ruxm^ 
1 rv. la ^ aiiu luc v^UixCiil value ui j is ^, J/ iV Vrtjuivi yx\^i\i x aa 

a result. 

Integer variables may be converted to real variables by the func- 
tion FLOAT (see Function Calls) or by an arithmetic statement. 
Integer variables must fall within the range —2048 to +2047. 

Integer arithmetic operations do not check for overflow. For 
example, the sum 2047+2047 will yield a result of —2. For more 
information refer to Chapter 1 of Introduction to Programming 
(Volume 1 in this set) or any text on binary arithmetic. 

REAL VARIABLES 

A variable is a real variable when its name begins with any char- 
acter other than I, J, K, L, M, or N. Real variables may be con- 

Calls) or by an arithmetic statement. Real variables undergo no 
trnTir*ciTiQr! rn ^rithmctic caicuiations. 

A scalar variable, which may be either integer or real, represents 

acinalf» nncintitxr 
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For example: 

LM 

A 

G2 

TOTAL 

J 

ARRAY VARIABLES 

An array variable represents a single element of a one- or two- 
dimensional array of quantities. The array element is denoted by 
the array name followed by a subscipt list enclosed in parentheses. 
The subscript list may be any integer expression or two-integer 
expressions separated by a comma. The expressions may be arith- 
metic combinations of integer variables and integer constants. 
Each expression represents a subscript, and the values of the ex- 
pressions determine the referenced array element. For example, 
the row vector Ai would be represented by the subscripted variable 
A(I), and the element in the second column of the first row of 
the matrix A, would be represented by A (1, 2). 
For example: 

Y(l) 
PORT (K) 

A(3*K + 2, 1) 

The arrays above (Y, PORT, and A) would have to appear in 
a DIMENSION statement prior to their first appearance in an- 
executable statement. The DIMENSION statement specifies the 
number of elements in the array. 

Arrays are stored in increasing storage locations with the first 
subscript varying most rapidly (see Storage Allocation). The two- 
dimensional array B (J, K) is stored in the following order: 

B(l, 1), B(2, 1), . . . , B(J, 1), B(l, 2), B(2, 2), . . . , B(J, 2), 

...,B(J,K) 

SUBSCRIPTING 

Since excessive subscripting tends to use core memory ineffi- 
ciently, it is suggested that subscripted variables be used judi- 
ciously. For example, the statement: 

A=C CBCI )+C2)*B(I )+Cl )*B(I ) 
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could be rewritten with a considerable saving of core memory as 
follows: 



T=B( I ) 

A=C (T+C2)*T+C1 )*T 



Expressions 

An expression is a sequence of constants, variables, and function 
references separated by numeric operators and parentheses in ac- 
cordance with mathematical convention and the rules given below. 

Without parentheses, algebraic operations are performed in the 
following descending order; 

** exponentiation 

— unary negation 

* and / multiplication and division 

+ and — addition and subtraction 

= equals or replacement sign 

Parentheses are used to change the order of precedence. An 

operation enclosed in parentheses is performed before its result 
is u&eu iH Ouiei oucraLiUiis. ill uie case ui oocioLiOus oi euuiu 

pxcvwuviiw, uiw waiwuiaLiuiia aio pcij-uiiiicu iiuiii iCii tu iigUL. 

Integers and real numbers may be raised to either integer or real 

A**B 

means .4^ and is real unless both A and B are integers. Exponential 
(e^) and natural logarithmic (loge(x)) functions are supplied as 
subprograms and are explained later. 

Excluding ** (exponentiation), no two numeric operators may 
appear in sequence unless the second is a unary plus or minus. 

The mode (or type) of an expression may be either integer or 
real and is determined by its constituents. Variable modes may not 
be mixed in an expression with the following exceptions: 

1. A real variable may be raised to an integer power: 

A**2 

2= Mode mav be altered bv usinp the functions IFIX and 
FLOAT: ' 

A*FLOAT(I) 
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The I in example 2, above, indicates an integer variable; it is 
changed to real (in floating point format) by the FLOAT function. 

Zero raised to a power of zero will yield a result of 1. Zero 
raised to any other power will yield a zero result. Numbers are 
raised to integer powers by repetitive multiplication. Numbers 
are raised to floating point powers by calling the EXP and ALOG 
functions. A negative number raised to a floating point power will 
not cause an error message but will use the absolute value. Thus, 
the expression (-3.0)**3.0 will yield a result of +27. 

Any numeric expression may be enclosed in parentheses and be 
considered a basic element. 

IFIX(X + Y)/2 
(ZETA) 
(COS(SIN(PI*EM) + X) ) 

A numeric expression may consist of a single element (constant, 
variable, or function call). For example: 

2.71828 

Z(N) 

TAN(THETA) 

Compound numeric expressions may be formed using numeric 
operators to combine basic elements. For example: 

X + 3. 

TOTAL/A 

TAN(PI*EM) 

Alphabetic expressions preceded by a -r or a — sign are also 
numeric expressions. For example: 

+X 

-(ALPHA*BETA) 

-SORT(-GAMMA) 

As an example of a typical numeric expression using numeric 
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operators and a function call, the expression for the largest root of 
the general quadratic equation 

-b+ Vb^-4ac 
__ 

wouju u€ couSu as 

(-B + SQRT(B**2 - 4.*A*C))/(2.*A) 

Function Calls 

In addition to the basic numeric operators, function calls are 
provided to facilitate the evaluation of functions such as sine, 
cosine, and square root. A function is a subprogram which acts 
upon one or more quantities (arguments) to produce a single 
quantity called the function value. A function call may be used in 
place of a variable name in any arithmetic expression. 

Function calls are denoted by the identifier which names the 

tiinz-firvn {\ f QITC POQ ptr \ fnllowpr! hv an argument enclosed 

in parentheses as shown below : 

IDENT (ARG, AGR, . . . , ARG) 

where IDENT is the identifying function name and ARG is an 
argument which may be any expression. A function call is eval- 
uated before the expression in which it is contained. 

Library Subprograms 

The standard FORTRAN library contains built-in functions, 
including user defined functions and subroutine subprograms. 

Table 2-1 lists the built-in functions. These are open subroutines: 
they are incorporated into the compiled program each time the 
source program names thera. 

i ; - -■■«■. -■*" 

J7uiii.;uuii aixu auuiOuuiic auupiv^gxtuna ax>^ v^iv^Swvi ivi^i.iixv.-s, niwiJ. 

coding appears only once in the compiled program. These routines 
are entered from various pomts m a program turougn jump-i-ype 
linkages, , 
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Table 2-1 Function Librarv 



Name 


Call 


Definition 


Argument 


Absolute Value 


ABSor 


X 


Real 




TABS 


X 


Integer 


Float 


FLOAT 


Conversion from 
integer to real 


Integer 


Fix 


IFIX 


Conversion from 
real to integer 


Real 


Remainder 


IREM 


Remainder of last 
integer divide^ 


Integer 


Exponential 


EXP 


eX 


Real 


Switch Register 


IRDSW 


Read console switch 
reg. 


Integer 


Natural Logarithm 


ALOG 


loge(x) 


Real 


Trigonometric Sine^ 


SIN 


sine(x) 


Real 


Trigonometric Cosine* 


COS 


cos(x) 


Real 


Tangent^ 


TAN 


tan(x) 


Real 


Square Root 


SQRT 


(x)V2 


Real 


Arctangent^ 


ATAN 


arctan(x) 


Real 



The IRDSW function call (Switch Register) takes the decimal 
equivalence of the octal integer in the switch register as its result. 
For example, if the contents of the switch register is 1234 (668 in 
decimal) when the statement 



INJ=IRDS¥(0) 



is executed, the switch register is read and its contents becomes the 



value of N: 



N = 668 



•"' If IREM is called as IREM(I/J), the remainder of I/J will be returned. 

If the argument of IREM does not contain a division, the remainder of 

the last integer division will be returned. 
^ Trigonometric functions use radians rather than degrees. 
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I nc swjitJi n^gjoiti caij uc SCI <ai ciuici ui iwo Uiiics: 

1, Before executing the FORTRAN program, after pressing 
LOAD ADD and before pressing START. 

2. During execution of the FORTRAN program, following a 
PAUSE statement. 

Floating Point Arithmetic 

In general, floating point arithmetic calculations are accurate to 
seven digits with the eighth digit being questionable. Subsequent 
digits are not significant even though several may be typed to 
satisfy a field width requirement. 

The floating point arithmetic routines check for both overflow 
and underflow. Overflow will cause the EPNT error message to be 
typed and program execution will be terminated. Underflow is 
detected but will not cause an error message. The arithmetic opera- 
tion involved will yield a zero result. The arctangent function is 
accurate to six decimal places for arguments whose absolute value 
is greater than .01 . 

CONTROL STATEMENTS 

The control statements GO TO, IF, DO, PAUSE, STOP, and 
END alter the sequence of statement execution, temoorarilv or 
permanently halt program execution, and stop compilation. 

GO TO Statement 

The GO TO statement has two forms: unconditional and com- 
puted. 

UNCONDITIONAL GO TO 

Unconditional GO TO statements are of the form: 

GO TO n 

where n is the number of an executable statement. Control is trans- 
ferred to the statement numbered n. 

COMPUTED GO TO 

Computed GO TO statements have the form: 

KJ 1\J \lil, 112, ■ ■ ■ , lik), J 

where ni, n2, . . . , n^ are statement numbers and J is a nonsub- 
scripted integer variable. This statement transfers control to the 

1 C 1 <i 

J. ^-i \j 



statement numbered n^, n,, . . . , n, if J has the value 1 2 k 

respectively The index (J in the above example) of ^ c^mpu'ted 
GO TO statement must never be zero or' greater than the number 
of statement numbers in the list (in the example above, not greater 
than k ) . For example, in the statement : 



GC TOC20,10,5)^K 



the variable K acts as a switch, causing a transfer to statement 20 
It K - 1, to statement 10 if K = 2, or to statement 5 if K = 3. 

IF Statement 

Numerical IF statements are of the form: 

IF (expression) n,, n., n.j 

where n„ n,, n. are statement numbers. This statement transfers 
control to the statement numbered n„ n,, n, if the value of the 
numeric expression is less than, equal to, or greater than zero 
respectively. The expression may be a simple variable or an^ 
ariiiimeiic expression. 



IF (ETA) 4:, 7:. 12 

IF(KAPPA-LC10) )20,14W4 



DO Statement 

The DO statement simplifies the coding of iterative procedures. 
DO statements are of the form: 

DO n i = mi, mo, m;{ 

ri'^Hi" ''/ '''''""'"' """'^''' ' '' ^ nonsubscripted integer 
variable, and m^, m„ m^ are integer constants or nonsubscripted 
integer variables. If m... is not specified, it is understood to be i 

ihe DO statement causes the statements which follow up to 
and mcluding the statement numbered n, to be executed repeatedly 
This group o statements is called the range of the DO statement." 
Jn the example above, the integer variable i is called the index the 
values of m^, m^, m, are, respectively, the initial, terminal, and in- 
crement values of the index. 
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For example: 



DO 10 1=1^5^2 
DO 20 I=J^K;.b 
DO 30 L=I--J-'K 






The index is incremented and tested before the range^of the 
is executed. If the terminal value is less than the mitiai vaiue, u.e 
ranse of the DO will not be executed. ' ^ ^^ 

After the last execution of the range, control passes to me siatc- 
. . „._j:„.„i.. f^n^^.nrirT tiiP rflfipe. This exit from the range 
is called the normal exit. Exit may also be accomphshed by a trans- 
fer from within the range. 

The range of a DO statement may include other DO statements, 
provided the range of each contained DO statement is entirely 
within the range of the containing DO statement. That is, the 
ranaes of two DO statements must intersect completely or not at 
all. A transfer into the range of a DO statement from ouside the 

range is not allowed. ^ • t ^ ■ .,.„:i.v- ^o- 

Within the range of a DO statement, tne maex is dv.uab.. .o. 
use as an ordinary variable. After a transfer from within tuc range, 
the index retains its current value and is available lor^use as a 
variable ^' The values of the initial, terminal, and mcreuxent vari- 
ables for the index and the index of the uO loop may i.ot .e 
altered within the range of the DO statement. 

The last statement of a DO loop must be executable, and m.ust 
not be an IF, GO TO, or DO statement. 

Implied DO Loops 

See Implementation Notes. 

CONTINUE Statement 

This is a dummy statement, used primarily as a target tor trans- 
f... „artirnl5,rlv as the kst Statement in the range of a DO s.ate- 
ment. For example, in the sequence 

5 The index of a DO loop should not be used as a variable after a normal 
exit from that DO loop until it has been redefined. 
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DO 7 K= IN IT:. LI MIT 



IF (XCK)) 22:.13^7 



CONTINUE 



a positive value of X(K) begins another execution of the range. 
The CONTINUE provides a target address for the IF statement 
and ends the range of the DO statement. 

PAUSE, STOP and END Statements 

The PAUSE and STOP statements effect FORTRAN object pro- 
gram operation; the END statement effects assembler operation 
only. 

PAUSE STATEMENT 

The PAUSE statement enables the program to incorporate oper- 
ator activity into the sequence of automatic events. The PAUSE 
statement assumes one of two lorms; 

PAUSE 
or PAUSE n 

where n is an unsigned decimal number. 

Execution of the PAUSE statement causes the octal equivalent 
of the decimal number n, to be displayed in the accumulator on 
the user's console. Program execution may be resumed (at the next 
executable statement) by depressing the CONTinue key on the 
console. 

In some cases the PAUSE statement may be usd to give the 
operator a chance to change data tapes or to remove a tape from 
the punch. When this is done it is necessary to follow the PAUSE 
statement with a call to the OPEN subroutine. This subroutine 
initializes the I/O devices and sets hardware flags that may have 
been cleared by pressing the tape feed buttons. For example: 



PAUSE 
CALL OPEN 
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STOP STATEMENT 

The STOP statement has the form: 

STOP 

It terminates program execution. STOP may occur several times 
within a single program to indicate alternate points at which ex- 
ecution may cease. Program control is directed either to or around 
STOP statements. 

END STATEMENT 

The END statement is of the form: 

END 

and signals the compiler to terminate compilation. The END state- 
ment must be the last statement of every program. 

INPUT/OUTPUT STATEMENTS 

Input/Output (I/O) statements are used to control the transfer 
of data between computer memory and peripheral devices and to 
specify the format of the output data. I/O statements may be di- 
vided into two categories. 

1. Nonexecutable FORMAT statements enable conversion be- 
tween internal data (within core memory) and external data. 

2. Data transmission statements, READ and WRITE, specify 
transmisssion of data between computer memory and I/O 
devices. 

FORMAT Statement 

The nonexecutable FORMAT statement enables the user to 
specify the form and arrangement of data on the selected external 
device. (See Implementation Notes for special uses of the FOR- 
MAT statement.) 

FORMAT statements are of the form : 

n FORMAT (Si, So, ... , S,0 

where n is a statement number and each S is a data field specifica- 
tion. 

FORMAT statements may be placed anywhere in the source 

numeric data for direct input/output transmission, it will be used in 
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conjunction with tlie list of a data transmission statement. 

During transmission of data, the object program scans the desig- 
nated FORMAT statement; if a specification for a numeric 
field is present (see Data Transmission Statements) and the data 
transmission statement contains items remaining to be transmitted, 
transmission takes place according to the specification. This pro- 
cess ceases and execution of the data transmission statement is 
terminated as soon as all specified items have been transmitted. 
The FORMAT statement may contain specifications for more 
items than are indicated by the data transmission statement. The 
FORMAT statement may also contain specifications for fewer 
items than are indicated by the data transmission statement, in 
which case, format control will revert to the rightmost left paren- 
thesis in the FORMAT statement. 

Both numeric and alphanumeric field specifications may appear 
in a FORMAT statement. The FORMAT statement also provides 
for handling multiple record formats, skipping characters, space 
insertion, and repetition. If an input list requires more characters 
than the input device supplies for a given unit record, blanks are 
inserted. 

NUMERIC FIELDS 

Numeric field specification codes and the corresponding internal 
and external forms of the numbers are listed in the following table. 

Table 16-2 Numeric Field Codes 



Conversion 






Code 


Internal Form 


External Form 


E 


Binary floating point 


Decimal floating point<5 

with E exponents: .324E+10 


F 


Binary floating point 


Decimal floating point with no 
exponent: 283.75 


I 


Binary integer 


Decimal integer: 79 



Conversions are specified by the form: 

rEw.d 
rFw.d 
rlw 

^ When using the WRITE statement with either E or F format, and 
numbers less than 1.0, a zero will not be typed to the left of the decimal 
point. 
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where r is a repetition count, E, F, and I designate the conversion 
code, w is an integer specifying the field width, and d is an integer 
specifying the number of decimal places to the right of the decimal 
point. For E and F input, the position of the decimal point in the 
external field takes precedence over the value of d. For example: 

FORMAT CI5^F10..2^E16.8) 

could be used to output the line 

32 .-17.60 .59625^76E+03 

on the output listing. 

The field width should always be large enough to include the 
decimal point, sign, and exponent. In all numeric field conversions, 
if the field width is not large enough to accommodate the converted 
number, the excess digits on the left are lost; if the number is less 
than the field width, the number is right-justified in the field. 

ALPHANUMERIC FIELDS 

Alphanumeric data can be transmitted in a manner similar to 
numeric data by use of the form 

rAw 

where r is a repitition count, A is the control character, and w is 
the number of characters in the field. Alphanumeric characters are 
transmitted as the value of a variable in an input/output list; the 
variable may be either integer or real. 

Although w m.ay have any value, the number of characters trans- 
mitted is limited by the maximum number of characters which can 
be stored in the space allotted for the variable. This maximum 
depends upon the variable type; for a real variable the maximum 
is six characters, for an integer variable the maximum is two 
characters. If w exceeds the maximum, the leftmost characters are 
lost on inT^ut and replaced with blanks on output. If, on in'^ut. w 
is less than the maximum, blanks are filled in to the right of the 
given characters until the maximum is reached. If, on output, w 
is less than the maximiimi the leftmost w characters are transmitted 
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HOLLERITH CONVERSION 

Alphanumeric data may be transmitted directly from the FOR- 
MAT statement by using Hollerith (H) conversion. H-conversion 
format is referenced by WRITE statements only. 

In H-conversion, the alphanumeric string is specified by the form 

nH hi. h^, . . . , h„ 

where H is the control character and n is the number of characters 
in the string, including blanks. For example; the statement below 
can be used to print PROGRAM COMPLETE on the output list- 
ing. 

FORMAT (17H PROGRAM COMPLETE) 

A Hollerith string may consist of any characters capable of 
representation in the processor. The space character is a valid and 
significant character in a Hollerith string. (See Implementation 
Notes for an alternate method of outputting alphanumeric data.) 

MIXED FIELDS 

A Hollerith format field may be placed among other fields of 
the format. The statement 

F0RMAT(I5;.7H FORCE = F10.5) 

can be used to output the line: 

22 FORCE= 17.68901 

The separating comma may be omitted after a Hollerith format 
field, as shown above. 

REPETITION OF FIELDS 

Repetition of a field specification may be specified by preceding 
the control character E, F, or I by an unsigned integer giving the 
number of repetitions desired. 

F0RMAT(2E12.4>3I5) 
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is equivalent to 

FORMAT (El 2. 4^ El 2. 4^ I5> I5>15> 

REPETITION OF GROUPS 

A group of field specifications may be repeated by enclosing the 
group in parentheses and preceding the whole with the repetition 

For example: 

F0RMAT(2I8>2(E15.5>2F8.3)) 

is equivalent to 

F0RMAtC218,E15.5^2F8.3,E15.5,2F8.3) 

MULTIPLE RECORD FORMATS 

To handle a group of output records where different records 
have different field specifications, a slash is used to indicate a new 
record. For example, the statement 

FCRMATC3IS/I5>2F8.4) 






FORMATCSIS) 

for the first record and 

F0RMAT(I5>2F8.4) 

for the second record. 

The separating comma may be omitted when a slash is used. 
When n slashes appear at the end or beginning of a format, n blank 
records may be written on output (producing a carriage return/ 
line feed for each record) or ignored on input. When n slashes 
appear in the middle of a format, n-1 blank records are writ- 
ten or n-1 records skipped. Both the slash and the closing par- 
entheses at the end of the format indicate the termination of a 
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record. If the list of an input/output statement dictates that trans- 
mission of data is to continue after the closing parenthesis of the 
format is reached, the format is repeated from the last open paren- 
thesis of level one or zero. Thus, the statement: 

FORMAT (F7. 2 > (2CE15.5^E15.4)^I7)) 

level level 1 

level 1 level 

causes the format: 

F7.2,2(E15.5aE15.4), 17 

to be used on the first record, and the format: 

2(E15.5^E15.4)W7 

to be used on succeeding records. 

As a further example, consider the statement: 

F0RMA1iCF7.2/(2CE15.5,E15.4), 17)) 

The first record has the format: 

F7.2 

and successive records have the format: 

2'(E15.5^E15.4)^ 17 

BLANK OR SKIP FIELDS 

Blanks may be introduced into an output record or characters 
skipped on an input record by use of the specification nX. The 
control character is X; n indicates the number of blanks or char- 
acters skipped and must be greater than zero. For example, the 
statement: 

FORMAT C5H STEP I 5^ 1 0X2HY = F7 . 3 ) 
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may be used to output the line: 

STEP 28 Y= 3.872 

DATA TRANSMISSION STATEMENTS 

There are two data transmission statements, READ and WRITE. 
Data transmission statements accompHsh input/ output transfer of 
data that may be listed in a FORMAT statement. The data trans- 
mission statement contains a list of the quantities to be transmitted. 
The data appears on the external device in the form of records. 

1. Input/ Output Lists'* — The list of an input/output statement 

SDecifies the order of transmission of variable values. During 
input, the new values of listed variables may be used in 
subscript or control expressions for variables appearing later 
in the list. For example: 

READC2^i000>L^ACL)^BCL+l ) 

reads a new value of L and uses this value in the subscripts 
of A and B' where 2 is the device desio'nation code and 
1000 is a FORMAT statement number. 

2. Input/Output Records — All information appearing on in- 
put is grouped into records. On output to the printer a record 
is one line. The amount of information contained in each 
ANSCII record is specified by the FORMAT reference and 
the input/output hst. 

Each execution of an input or output statement initiates the 
transmission of a new data record. Thus, the statement: 

READCl^ 100) FIRST^ SECOND^ THIRD 

is not necessarily equivalent to the statements below where 100 is 
the FORMAT statement referenced: 

READCl y 100)FIRST 
READCl^ 100 )SECOND 
READCl :. 100) THIRD 

''The implied DO in input/ output lists is not implemented. 
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In the second case, at least three separate records are required, 
whereas, the single statement 

READ (d, f) FIRST, SECOND, THIRD 

may require one, two, three, or more records depending upon 
FORMAT statement f. 

If an input/output statement requests less than a full record of 
information, the unrequested part of the record is lost and cannot 
be recovered by another input/output statement without reposi- 
tioning the record. 

If an input/output list requires more than one ANSGII record of 
information, successive records are read. 

READ Statement 

The READ statement specifies transfer of information from a 
selected input device to internal memory, corresponding to a list 
of named variables, arrays or array elements. The READ statement 
assumes the following form: 

READ (d, f) list 

where d is a device designation which may be an integer constant 
or an integer variable, f is a format reference, and list is a hst of 
variables. 

The READ statement causes ANSCII information to be read 
from the device designated and stored in memory as values of the 
variables in the list. The data is converted to internal form as 
specified by the referenced FORMAT statement. 
For example: 

READCl W 5)ETA^PI 

WRITE Statement 

The WRITE statement is used to transmit information from 
the computer to a specified output device. The WRITE statement 
assumes one of the following forms: 

WRITE (d, f) list 
WRITE (d, f) 

where d is a device designation (integer constant or integer vari- 
able), f is a format reference, and Hst is a list of variables. 
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The first form of the WRITE statement causes the values of the 
variables in the list to be read from memory and written on the 
device designated in ANSCII form. The data is converted to exter- 
nal form as specified by the designated FORMAT statement. 

The second form of the WRITE statement causes information 
to be read directly from the specified format and written on the 
device designated in ANSCII form. 

DEVICE DESIGNATIONS 

The I/O device designations are used in the READ and WRITE 
statements. The device codes are: 

Device Code Designating 

1 Teletype and low-speed reader and punch 

2 High-speed reader and punch 

For additional I/O information, see SABR, chapter 15. 

DECtape I/O Routines 

RTAPE and WTAPE (read tape and write tape) are the DEC- 
tape read and write subprograms for the 8K FORTRAN and 8K 
"SABR systems. The subprograms are furnished on one relocatable 
binary-coded paper tape which must be loaded into field by the 
8K Linking Loader, where they occupy one page of core. 

RTAPE and WTAPE allow the user to read and write any 
amount of core-image data onto DECtape in absolute, non-file- 
structured data blocks. Many such data blocks may be stored on 
a single tape, and a block may be from 1 to 4096 words in length. 

RTAPE and WTAPE are subprograms which may be called with 
standard, explicit CALL statements in any 8K FORTRAN or 
SABR program. Each subprogram requires four arguments sep- 
arated by commas. The arguments are the same for both subpro- 
grams and are formatted in the sam.e manner. They specify the 
following: 

1 . DECtape unit number (from_ to 7) 

2. Number of the DECtape block at which transfer is to start. 
The user may direct the DECtape service routine to begin 
searching for the specified block in the forward direction 
rather than the usual backward direction by making this 
argument the two's complement of the block number. For 
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additional information on this and other features the reader 
is referred to the DECtape Programmer's Reference Man- 
ual. 

3. .Number of words to be transferred (1<N<4096). 

4. Core address at which the transfer is to start. 
The general form is: 

CALL RTAPE (ni, no, ng, n4) 
where ni is the DECtape unit number, no is the block number, ns 
is the number of words to be transferred, and n4 is the starting 
address. 

In 8K FORTRAN, an example CALL statement to RTAPE 
could be written in the following format (arguments are taken as 
decimal numbers) : 

CALL RTAPEC6*128^388*L0CA) 

In this example, LOCA may or may not be in COMMON. 

As a typical example of the use of RTAPE and WTAPE, assume 
that the user wants to store the four arrays A, B, C, and D on a 
tape with word lengths of 2000, 400, 400, and 20 respectively. 
Since PDP-8 DECtape is formatted with 1612 blocks (numbered 
1-2700 octal) of 129 words each (for a total of 207,948 words), 
A, B, C, and D will require 16, 4, 4, and 1 blocks respectively. 
Each array must be stored beginning at the start of some DECtape 
block. The user may write these arrays on tape as follows: 

CALL WTAPE(0> 1*2000^A) 

CALL WTAPEC0.» 1 7^400>B) 

CALL WTAPE(0,21>400>C) 

CALL WTAPE(0^25^20>D) 

The user may also read or write a large array in sections by 
specifying only one DECtape block (129 words) at a time. For 
example, B could be read back into core as follows. 

CALL RTAPE(0, 1 7^258, BCl ) ) 
CALL RTAPE(0, 19, 129,8(259)) 
CALL RTAPEC0,20, 13,B(388) ) 

As shown above, it is possible to read or write less than 129 
words starting at the beginning of a DECtape block. It is impos- 
sible, however, to read or write starting in the middle of a block. 
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For example, the last 10 words of a DECtape block may not be 
read without reading the first 119 words as well. 

A DECtape read or write is normally initiated with a backward 
search for the desired block number. To save searching time, the 
user may request RTAPE or WTAPE to start the block number 
search in the forward direction. This is done by specifying the neg- 
ative of the block number. This should be used only if the number 
of the next block to be referenced is at least fourteen block num- 
bers greater than the last block number used. For example, if the 
user has just read array A and now wants array D, he may write: 

CALL RTAPE{0j. 1^2000:. A) 
CALL RTAPE(0, -25^20^0) 

The following is a section of a program demonstrating the use 
of DECtape I/O. Assume that values are already present on the 
DECtape. 

DIMENSION DATA(500) 



SUM=0 

DO 100 N=l>10 

CALL RTAPECl :.-NBj. 1 500^DATA) 

T£M-0 

DO 50 K= 1,500 
50 TEM=TEM+DATA(K) 

SUM=SUM+TEM 
100 NB=NB+24 

AMEAN=SUM/5000. 

WRITECi J 1 10 )SUM,AMEAN 

CALL EXIT 
110 FORMAK •SUM=',E15.7' MEAN= % El 5. 7///) 

END 

Disk I/O Routines 

CjJivjiv Ai-^i^- dJioK. s^open uiSK anu close uiSK^j anu R.DxSK 
and WDISK (read disk and write disk) are the four DECdisk 
^ uv ^ L ' xj^si. '■ iii'^ui snQ ouE'^ui suD^ro^rsms lor ip*^ 6f^ i^' 'jk.- 
TRAN system. They are furnished on one relocatable binary-coded 

where they occupy eight pages of core. 
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ODISK AND CDISK 

ODISK is used to open (activate) a file (named using the Link- 
ing Loader D function) so that the file can be read or written using 
RDISK or WDISK. CDISK will close (deactivate) a file which 
was opened with ODISK so that the contents of the file cannot be 
altered. 

The ODISK and CDISK subprograms may be called with stand- 
ard, explicit CALL statements in any 8K FORTRAN program. 
ODISK requires one argument when opening a file. However, it 
requires two arguments when specifying or changing the size (in 
blocks) of a file. CDISK always requires only one argument. 

The first argument of both ODISK and CDISK is the logical 
number (from 1 thru 10 inclusive) of the file as it was named 
using the Linking Loader. (Refer to Chapter 15 for a discussion of 
logical file numbers.) The second argument to ODISK is the num- 
ber of blocks (from 1 thru 128) to be saved for the file. 

In 8K FORTRAN, the CALL statements to ODISK and CDISK 
are written in the following format (arguments are taken as decimal 
integer numbers). 

CALL ODi'SKCl ) 

when opening a file, or 

CALL ODISKCl^S) 



when specifying or changing the size of a file, and 



CALL CDISKCl ) 

when closing an opened file. 

ODISK prepares the file named for data transfer. When running 
the user program using the Disk Monitor System, ODISK uses 
Disk Monitor I/O and the three scratch blocks on disk zero for a 
window whenever a file is opened. 

All open files should be closed before terminating program 
execution, thus preserving the contents of the files. 
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RDISK AND WDISK - 

The RDISK and WDISK (read disk and write disk) subpro- 
grams may be called with standard, explicit CALL statements in 
any 8K FORTRAN or 8K SABR program. The ODISK subpro- 
gram must be used to open the file concerned before using the 
RDISK or WDISK subprograms. 

Each of these subprograms requires four arguments, arranged 
as listed below. 

L Logical file number (determined using the Linking Loader 
D function), 

2. Logical block of file number (block number of the file 
where data transfer is to begin), 

3. Number of words to be transferred (from 1 thru 2047), and 

4. Core address where data transfer is to start (field 0). 

Both RDISK and WDISK require the arguments above. The gen- 
eral form is: 

CALL RDISK (ni, n^, n^, n4) 

In 8K FORTRAN, the CALL statements to RDISK and 
WDISK are written in the following format (arguments are taken 
as decimal numbers). 



CALL RDISKC4;,2,55^L0CA) 



when reading file 4, beginnig with block 2, transferring 55 words, 
starting at location of tag LOCA, which may be the name of an 
array defined in a DIMENSION statement. WDISK would be 
formatted in the same fashion. 

sary to transfer in 200-word blocks as with the Disk Monitor 

The sample code written as an example of DECtape I/O usage 

liQo K<»i=»n r-c^rrtrrif^ri htfAnxxT trt Hp'TYinnctratp rlifilr T /O Aaain assume 

the data is on the disk. 
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DIME^'SIO>J DATA (500) 



CALL ODISKCl ) 

NB = 

SUM = 

DO 100 N=l>10 

CALL RDISKCl^NB:. 1 500;.DATA) 

TEM = 

DO 50 K=l:,500 
50 TEK=TEK+DATA(K) 

SUM=SUW+TEM 
100 ^JB = ^^B+12 

AMEA>]-=SUK/5000. 

WRITE (1 W 10 )SUM^AMEA\- 

CALL CDISKC 1 ) 

CALL EXIT 
110 FORMATC •SUM= SEl 5.7^ ' MEAM= ' ^ El 5 . 7/// ) 

END 



SPECIFICATION STATEMENTS 

Specification statements allocate storage and furnish information 
about variables and constants to the compiler. The specification 
statements are DIMENSION, COMMON, and EQUIVALENCE, 
and when used, must appear in the program prior to any executable 
statement. 

COMMON Statement 

The COMMON statement causes specified variables or arrays 
to be stored in an area available to other programs. By means of 
COMMON statements, the data of a main program and/or the 
data of its subprograms may share a common storage area. Vari- 
bles in COMMON statements are assigned to locations in ascend- 
ing order in field 1 beginning at location 200 storage allocation. 
The COMMON statement has the general form: 

COMMON v,,V2, ...,v„ 

where v is a variable name. 

DIMENSION Statement 

The DIMENSION statement is used to declare identifiers to be 
array identifiers and to specify the number and bounds of the 
array subscripts. The information supplied in a DIMENSION 
statement is required for the allocation of memory for arrays. Any 
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number of arrays may be declared in a single DIMENSION state- 
ment. The DIMENSION statement has the form: 

DIMENSION Si,S2,...,s,, 

where s is an array specification. For example: 

DIMENSION AC100 ) 

DIMENSION YC 10 ):,P0RTC25):.3( i7j, 10 )> J(32) 

NOTE 

When variables in COMMON storage are 
dimensioned, the COMMON statement must 
appear before the DIMENSION statement. 

EQUIVALENCE Statement 

The EQUIVALENCE statement causes more than one variable 
within a given program to share the same storage location. The 
EQUIVALENCE statement has the form: 

EQUIVALENCE (v,, v., ...),.. . 

where v is a variable name. 

The inclusion of two or more references in a parenthetical list 
indicates that the quantities in the list are to share the same mem- 
ory location. For example: 

EQ U I VALENC E ( RE D j BL UE ) 

r^^^^;C, — *U«j. iU^ :_1_1„_ "ITD'TV 3 "r»T T TJ-^ _j. 3 :_ xT. 

3jjcviiit-s mai. tiic vaiiauics xvu,i> a.nu dl^kjc aic aiuicu iii luc aaiiic 

place, and therefore they have the same value. The subscripts of 
array variables must be integer constants. For example: 

EQUIVALENCECX^AC 3)^YC2% 1 ) ) :. (BETA C 2^ 2 ), ALPHA) 

Identifiers may not appear in both EQUIALENCE and COMMON 
statements.. 

Because of core memory restrictions within the compiler, vari- 
ables cannot appear in EQUIVALENCE statements more than 



1 ^ nA 



would be valid, but the statement 

EQUIVALEMCECA^-B):. (3,C) 

would not compile correctly. 

SUBPROGRAM STATEMENTS 

External subprograms are defined separately from the programs 
that call them, and are complete programs which conform to all 
the rules of FORTRAN programs. They are compiled as closed 
subroutines, that is, they appear only once in core memory regard- 
less of the number or times they are used. External subprograms 
are defined by means of the statements FUNCTION and SUB- 
ROUTINE. Function and subroutines must be compiled indepen- 
dent of the main program and then loaded together with the main 
program by the Linking Loader. 

Subprogram definition statements contain dummy identifiers, 
representing the arguments of the subprogram. They are used as 
ordinary identifiers within the subprogram and indicate the sort of 
arguments that may appear and how the arguments are used. The 
dummy identifiers are replaced by the actual arguments when the 
subprogram is executed. 

Function Subprograms 

A function subprogram is a single-valued function that may be 
called by using its name as a function name in an arithmetic ex- 
pression, such as FUNC(N), where FUNC is the name of the sub- 
program that evaluates the corresponding function of the argument 
N. A function subprogram begins with a FUNCTION statement 
and ends with an END statement. It returns control to the calling 
program by means of one or more RETURN statements. 

The FUNCTION statement has the form: 

FUNCTION identifier (a,, a.,-. . . ,a„) 

This statement declares that the program which follows is a func- 
tion subprogram. The identifier is the name of the function being 
defined. This identifier must appear as a scalar variable and be as- 
signed a value, which is the function value, during execution of 
the subprogram. 
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/^^Agutiiiv-iii-o cij^pvciiiiig 111 LUC iisL ciiciuacu III paicnmeses are 
dummy arguments representing the function argument. The argu- 
ments must agree in number, order and type with the actual 
arguments used in the calHng program. Function subprograms 
may have expressions and array names as arguments. 

Dummy arguments may appear in the subprogram as scalar 
identifiers or array identifiers. A function must have at least one 
dummy argument. Dummy arguments representing array names 

Dimensions must be indicated as constants and should be smaller 
than or equal to, the dimensions of the corresponding arrays in the 






A function should not modify any arguments which appear in 
the FORTRAN arithmetic expression calling the function. The 
only FORTRAN statements not allowed in a function subprogram 
are SUBROUTINE and other FUNCTION statements. 

The type of function is determined by the first letter of the 
identifier used to name the function, in the same way as variable 
names. 

The following short example calculates the gross salary of an 
individual on the basis of the number of hours he has worked 
(TIME) and his hourly wage (RATE). The function calculates 
time and a half for overtime beyond 40 hours. The function is 
called SUM and would look as follows: 



IF CTIME-40. ) 10, 10,20 
10 SUM = TIME * RATE 

RETURM 
20 SUM = C40.*RATE) + ( TIME-40 . ) * 1 . 5*RATE 

RETURN 

END 

Depending upon which path the program takes, control will 
return to the main program at one of the two RETURN state- 
ments with the answer. We would probably have set up the main 
program with a statement to read the employee's weekly record 

from a list of infnrmaf-inn nrpty^rf^rl nn fUo. Vt'mU^anaaA ^^^A^^. 

READ(2,5) NAME, NUM, MDEP, TIME, RATE 
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This statement reads the person's name, number, department num- 
ber, time worked, and hourly wage. The main program would then 
go on to calculate his gross pay with a statement like the following: 

GROSS = SUM(TIMEjRATE) 

and go on to calculate withholdings, etc. 

Subroutine Subprograms 

A subroutine subprogram may be multivalued and can be re- 
ferred to only by a CALL statement. A subroutine subprogram 
begins with a SUBROUTINE statement and returns control to the 
calling program by means of one or more RETURN statements. 

The SUBROUTINE statement has the form: 

SUBROUTINE identifier (a,, ao, .... a„) 

This statement declares the program which follows to be a sub- 
routine subprogram. The first identifier is the subroutine name. 
The arguments in the list enclosed in parentheses are dummy ar- 
guments representing the arguments of the subprogram. The 
dummy arguments must agree in number, order, and type with the 
actual arguments used by the calling program. 

Subroutine subprograms may have expressions and array names 
as arguments. The dummy arguments may appear as scalar or 
array identifiers. 

Dummy identifiers which represent array names must be dimen- 
sioned within the subprogram by a DIMENSION statement. The 
dummy arguments must not appear in an EQUIVALENCE or 
COMMON statement in the subroutine subprogram. 

A subroutine subprogram may use one or more of its dummy 
identifiers to represent results. The subprogram name is not used 
for the return of results. A subroutine subprogram need not have 
any arguments, or may use the arguments to return numbers to 
the calling program. Subroutines are generally used when the result 
of a subprogram is not a single value. 
Example SUBROUTINE statements may look as follows: 

SUBROUTINE FACTOR ( COEFF^ M^ ROOTS ) 
SUBROUTINE RES I DU( NUM, N;. DEN^ M:. RES ) 
SUBROUTINE SERIES 
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The only FORTRAN statements not allowed in a subroutine 
subprogram are FUNCTION and other SUBROUTINE state- 
ments. 

The following short subroutine takes two integer numbers from 
the main program and exchanges their values. If this is to be done 
at several points in the main program it is a procedure best per- 
formed by a subroutine. 

SUBROUTINE ICHANGECI^J) 

ITEM = I 

I = J 

J - ITEM 

RETURN 

EMD 

The calling statement for this subroutine might look as follows: 

CALL I CHANGE CM:,N") 

where the values for the variables M and N would be exchanged. 

CALL STATEMENT 

The CALL statement assumes one of two forms: 

i^ A T T :j_„i;i;„_ 
K^jAl^L-, iueilLUlOi 

or CALL identifier (ai, ao, . . . , a„) 

The CALL statement is used to transfer control to a subroutine 
subprogram. The identifier is the subroutine name. 

The arguments (indicated by ai, through a^) may be expres- 
sions or array identifiers. Arguments may be of any type, but must 
agree in number, order, type, and array size with the corresponding 
arguments in the SUBROUTINE statement of the caUed sub- 
routine. Unlike a function, a subroutine may produce more than 
one value and cannot be referred to as a basic element in an ex- 
pression. 

results to the calling program. If no arguments at all are required, 

.lI- - 11-,-J. jC_ •_ 1 T->__ 1_. 



CALL EXIT 

CALL TEST C VALUE^ i 23 j 2 75 > 
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The identifier used to name the subroutine is not assigned a 
type and has no relation to the types of the arguments. Arguments 
which are constants or formed as expressions must not be modified 
by the subroutine. 

RETURN STATEMENT 

The RETURN statement has the form: 

RETURN 

This statement returns control from a subprogram to the calling 
program. Each subprogram must contain at least one RETURN 
statement. Normally, the last statement executed in a subprogram 
is a RETURN statement; however, any number of RETURN 
statements may appear in a subprogram. The RETURN statement 
may not be used in a main program. 

OPERATING INSTRUCTIONS 

The Compiler, SABR Assembler, and Linking Loader are used 
(in that order) to compile, assemble, and execute FORTR.AN pro- 
grams. In carrying out the following procedures, the Data Field 
setting can be ignored since all system tapes, with the exception 
of Linking Loader, have field settings coded on them. For detailed 
information on the Linking Loader see Chapter 15, SABR. 

Loading the Compiler 

PAPER TAPE SYSTEM 

1. Make sure the Binary Loader is in memory, say field 1. 

2. Place the FORTRAN Compiler binary tape in the reader. 

3. Set the console switches as follows: (Data field is ignored) 
instruction field = 1, Switch Register = 7777. 

4. Press LOAD ADDress. 

5. Depress Switch Register bit 0. 

6. Press START 

7. The FORTRAN Compiler has now been loaded into mem- 
ory by the Binary Loader. Parts of the compiler will load into 
field and field I . 
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1 . Make sure the Disk Monitor is in memory. (Type CTRL/C* 
or START at 7600). 

2. When the Monitor responds with a dot, call the system 
loader by typing 

.LOAD (the denotes typing the RETURN key) 

3. Place the Compiler binary tape in the reader. 

4. Answer the Loader command dialogue as follows: 

*IN-R: 

t <CTRL/P> t <CTRL/P> 

5. The FORTRAN Compiler has now been loaded into mem- 
ory, parts into field and field 1 . It must now be saved on 
the system device as follows: 

•SAVE FTC0!0-7577;5363 

• SAVE FTCl !200:» 1000-1577^2600^6000-1 6377; 

6. The compiler has now been saved on the user's system device 
and may be called as follov/s: 

• r'TC 1 
»FTC0 

The field 1 part must be called first. 

Operating the Compiler 

It is assumed that the programmer has written his main program 
and possibly one or more subprograms, and that these source pro- 
grams have been punched on paper tape in ANSCII format. Re- 
member that each source tape must have an END statement at the 
end of the tape. 

After the compiler has been loaded into memory, it is used to 
translate each FORTRAN statement into one or more SABR as- 
sembler instructions. The compiler output will be punched in two 
parts separated by approximately three feet of blank tape. The 
first part, (executable code) will be punched as the source tape is 
read. The second part, (variable storage and constants) will be 
punched after the entire source tape has been read. 

4 CTRL/C and CTRL/P are typed by holding the CTRL key while typing 
the C or P key. They do not echo (print) when typed, therefore, fheir 
presence are indicated by being enclosed in angle brackets. 
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If the compiler has been saved on the Disk Monitor System, it 
will halt after it is loaded into memory. Be sure that the source 
tape has been placed in the reader and the punch has been turned 
ON, then simply press CONTinue to initiate compiler output. 

It may be. desirable to suppress all compiler output the first time 
a particular program is compiled, simply to check for errors. To do 
this it is necessary to load the compiler and then deposit 3075 in 
location 0356 (field 0), prior to starting the compiler, 

1. Set the console switches as follows: Data field = 0, Instruc- 
tion field = 1 Switch Register = 1000. (The compiler may 
also be started at location 5364 in field 0.) 

2. Place the FORTRAN program source tape in the reader, 
and press the punch ON. 

3. Press LOAD ADDress and START. 

4. As soon as the compiler has typed out an identification num- 
ber, it will begin compiling the user's program. The compiler 
output will generally be several times the length of the FOR- 
TRAN source program. 

Errors 

All compile time, assembly time, and execution time errors are 
fatal (the program will not be further processed). For this reason 
it is desirable to suppress punched output of the compiler and 
assembler until the source program is believed to be correct. For 
specific instructions refer to the appropriate System User's Guide. 

Note especially that the compiler will not detect undefined state- 
ment numbers. Therefore it is important to examine the assembly 
symbol table for undefined symbols before loading and executing 
the program. 

Do not attempt to load or run a program which has assembly 
errors. Do not attempt to proceed after an execution time error by 
pressing CONTinue. Unpredictable results will be obtained in 
either case. 

Compiler Error Messages 

When an error is encountered during compilation of a statement, 
the incorrect statement and an error message are printed. Further 
compilation of that statement is terminated, and output is sup- 
pressed for the rest of the compilation. The compiler, however, 
will scan the remaining statements for errors, and will print an 
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An example of an error message follows: 



A=B+M(6)+N( 1 ) 
t 

MIXED MODE EXPRESS I OX^ 

Note that an t was printed directly below the incorrect statement. 
This indicates that the error occurred somewhere between the point 
and the beginning of the statement. In some cases the arrow m.ay 
point directly at the illegal character or word, but this cannot 
always be assumed. 

If an error occurs in the middle of a series of continuation lines, 



m.<w w-L 



message ILLEGAL CONTINUATION. 

Compiler error messages are self-explanatory: 

ARITHMETIC EXPRESSION TOO COMPLEX 

EXCESSIVE SUBSCRIPTS 

ILLEGAL ARITHMETIC EXPRESSION 

ILLEGAL CONSTANT 

ILLEGAL CONTINUATION 

ILLEGAL EQUIVALENCING 

ILLEGAL OR EXCESSIVE DO NESTING 

ILLEGAL STATEMENT 

ILLEGAL STATEMENT NUMBER. 

TTTPriAT \/AT?TATiT T7 

MIXED MODE EXPRESSION 

SYMBOL TABLE EXCEEDED 

SYNTAX ERROR (usually illegal punctuation) 

If an error is discovered in the user's FORTRAN program, 
the compiler will type the incorrect line, followed by an error 
message. Although compiler output will be suppressed, the rest of 
the user's program will be read, and additional error messages may 
be typed. 

When the compiler has finished punching both sections of tape 

IL Will ll£llt. XL llltlV CO J. Vi3l<ii. t^^l_i l^KJ V-^JlllJ-ZAJlW M\J.V*l.^lV^iJ,4AA M-L V^X CAAJtAO K^ J 

pressing CONTinue. 

The FORTRAN Compiler may be retarted at any time by press- 
ins STOP and resetting the console switches. 

15-42 



Loading The SABR Assembler 

See Chapter 14. or the appropriate System User's Guide for di- 
rections on loading the SABR Assembler. 

SABR is loaded into memory, partly in Field and parly in 
Field 1. It may be saved on the user's system device by responding 
to the monitor's dot as follows: 
Operating The SABR Assembler 

In addition to being a stand-alone assembler, SABR also serves 
as the second pass of 8K FORTRAN compilation. For this purpose 
the use of SABR is sightly different from that described in Chap- 
ter 14. This difference in the operation of SABR is due only to the 
unusual format of the FORTRAN compiler output. 

The compiler, in one pass, converts the user's FORTRAN 
source program into a symbohc machine language program tape. 
SABR then converts the symbolic tape into relocatable binary. 
However, the symbolic tape produced by the compiler is not a 
standard format SABR language tape. It is arranged as shown in 
the figure on the facing page. 
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t ^True Start 

The tape is arranged this way because the data at the end of the 
tape cannot be inserted in the midst of the executable code, and 
some of it which should be at the beginning of the tape is not 
known until later. Thus the true start of the symbolic program is 
near the end of the symbolic tape preceded by a segment of blank 
tape and followed by a PAUSE statement. 

To assemble such a tape with SABR, one of three methods must 
be followed. Actually, the general procedure is the same as that 
described in the SABR manual, but in particular details it differs. 
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The differences are covered by the three methods explained below. 

METHOD 1 

The simplest method is to cut the symbolic tape into two parts. 
The cut should be made at the middle of the blank tape which 
separates the executable code from the symbol definitions. The 
latter section of the tape should then be marked "Section 1" and 
the former section (the executable code) should be marked "Sec- 
tion 2 " Assembly then proceeds with the two part symbolic tape 
exactly as described below. 

After SABR has been loaded into memory, it is used to assemble 
the compiler output. Tn the first pass through SABR the relocatable 
binary version of the user's program is created and, at the end of 
this pass, the symbol table may be typed and/or punched. Pass 
is the listing pass. The assembly is carried out as follows. 

If SABR has been saved on the system I/O device it will start 
automatically at step (3) on the next page when called into mem- 
ory. The source tape (first section) should be inserted in the 
reader before operation begins. 

It may be desirable to suppress all assembler output the first 
t'me a ^articular program is assembled, simply to check for errors. 
To do "this it is necessary to load SABR and then deposit 5370 
in location 3165 (Field 6) before beginning step (1) below. 

1. Set the console switches as follows: Data field = 0, In- 
struction field = 0, Switch Registej- = 0200. 

2. Press LOAD ADDress and START. 

3. SABR now types a sequence of two or three questions; 

HIGH SPEED READER? 

HIGH SPEED PUNCH? 

LISTING ON HIGH SPEED PUNCH? 

These questions mut be answered with "Y" if the answer 
is "yes." Any other answer is assumed to be "no." The 
third question is typed only if the second is answered "Y." 
If the third is answered "Y," both the symbol table and the 
listing will be punched on the high-speed paper tape punch. 
Otherwise, thev are tvoed on the teletypewriter. Incidentally, 
the user need not wait for the full question to be typed be- 
fore responding. 

4. As soon as SABR has echoed the user's response to the last 

— „c,*i~^ +u^ -mm/^i. AaW-ipa opfl if it ic bfiiKJ nseH the ASR 
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reader should be turned on. If using the iow-speed reader, 
the error message E indicates that the user has waited too 
long before turning the reader on. He will have to start over. 

5. At this point, pass 1 begin. SABR reads the source tape and 
punches the binary tape. After the binary tape has been 
completed SABR will type or punch the program symbol 
table. 

6. If the source tape is in several sections (separate tapes with 
PAUSE at the end of all except the last), SABR will halt 
at the end of each section. At this point the user should in- 
sert the next section in the reader affd then press CONTinue. 

7. At the end of Pass 1 SABR wilLJialt. 

8. If the user desires an assembly listing, he should now re- 
position the beginning of the source tape in the reader and 
press CONTinue. 

If the listing is going to be punched on the high speed 
punch, the user may want to list the symbol table (at the 
end of the binary relocatable tape) before beginnig Pass 2. 

9. At the end of Pass 2 SABR will again halt. It may be re- 
started for assembling another program by pressing CON- 
i mue. 

10. SABR may be restarted at any time by pressing STOP, set- 
ting the switch register =0200, pressing LOAD ADDress 
and START. However, Pass 1 must always be repeated. 

METHOD 2 

The user may avoid actually cutting the symbolic tape by ma- 
nipulating the tape as if it were two parts, as explained above. The 
tape should initially be inserted in the reader with the separator 
blank tape over the read-head. When SABR halts at the PAUSE 
statement at the physical end of the tape, the user should reposition 
the tape, putting the physical beginning of the tape in the reader. 
Then press CONTinue. The assembly pass will end at the separator 
blank tape code. The assembly listing can be produced in a similar 
manner, pressing CONTinue to start the listing pass. 

METHOD 3 

The third method requires SABR to pass the symbolic tape two 
times for each pass of the assembly. However, it allows the tape 
to be inserted at its physical beginning. It is based on the fact that 
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a symbolic tape ouipui oy uic i vyiv-Lxv^-vi^ K^x^my^^s.^ ^^^^ ^^ — 
physical first line the special pseudo-op, FORTR. This pseudo-op 
has no effect except when a symbolic tape output by the compiler 
is assembled using this third method. 
The method is this: 

1. Insert the symbolic tape in the reader at its physical begin- 
ing. 

3. Sensing the FORTR statement as the first line, SABR ig- 
nores all further data until after it passes over the END 
statement. SABR then begins the actual assembly by pro- 
cessing the symbol definitions, etc., which are at the latter 

end of the tape. 

4. Then SABR halts at the PAUSE statement which is at the 
physical end of the tape. At this time the user should re- 
position the symbolic tape in the reader at the physical 
beginning of the tape, and then press CONTinue. SABR 
will now asemble the executable code portion of the tape 
in the normal way. 

5. If the user desires an assembly listing, he should proceed 
as in Method 2 after SABR finishes the assembly pass. 

One other type of error may occur. This is an undefined sym- 
bol. Because SABR is a one-pass assembler, this can not be de- 
t^^rr^in^ri -,-,^.t\^ fhp pnrl of the assembly Dass. so the error diagnostic 
UNDF is given in the symbol table listing. 



The Linking Loader 

See Chapter 14. 

Executing The FORTRAN Program 

Determine the starting address of your main program by using 
the Linking Loader Storage Map option. The address will be 
typed in the form: 

ivi/\iiN uniiiiu 

1. Set Data Field = d, instruction Field = d, Switch Register 
= nnnn. 
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2. Turn on paper tape punch and/or put data tape in reader 
as required. 

3. Press LOAD ADDress, and START. 
Program execution will begin. 

DEMONSTRATION PROGRAM 

This program computes the factorials of the even integers from 
1 through 34. The MAIN program calls the subprogram to per- 
form the computation. 

This demonstration program was run on a PDP-8/I with 8K 
words of core memory and high-speed reader/punch. The demon- 
stration, from start to finish, required 15 minutes. Actual Teletype 
printout is used on the following pages. 

Both source programs were written using the Symbolic Editor, 
listed on the Teletype for inclusion here, and punched on the high- 
speed punch. 

C FORTRAN DEKONSTRATIOM PROGRAM 

DIMENSION A(35) 

DO 10 M=2^34,2 

A(N)=FACT(N) 
10 WRITE C1,60)N:,ACN) 

STOP 
60 FORMAT CI3:.4H! = ^E12.7) 

END 



p 




L 




C 


FORTRAN FUNCTION TO COMPUTE FACTORIALS 




FUNCTION FACTCN) 




IF (N-34) 1^5^.5 


1 


IF (N) 2.>l\,2. 


2 


M=N-2 




FACT=N 




DO 3 K=1;,M 




C = N-K 


3 


FACT=FACT*C 




RETURN 


4 


FACT=1 . 




RETURN 


5 


WRITE (1^6) N 




FACT=0 




RETURN 


6 


FORMAT (I5^30H! EXCEEDS CAPACITY OF PROGRAM.) 




END 
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This is the svstem oroeram taoe identification. At this point we 
have loaded the FORTRAN Compiler and compiled both source 
programs. 

PDP-8 FORTRAN DEC-08 -A2B1 -3 

PDP-8 SABR DEC-08-A2B2-10 

HIGH SPEED READER? Y 

HIGH SPEED PUNCH? Y 

LISTING ON HIGH SPEED PUNCH? N 

CKIO 0000EXT 

FACT 0000EXT 

lOH 0000EXT 

ISTO 0000-EXT 

MAIN 3 52 EXT 

OPEN 0000 EXT 

SUBSC 0000EXT 

WRITE 0000 EXT 

[0 0512 

\A 0200 

\N 0351 

\10 0426 

\60 501 

TA 0361 

tB 0473 

" O 16/ At i i 

TD 0450 

tE 0463 

TF 0476 

r n (T, C ■! Q 

' ^ ^ u i. CL 

HIGH SPEED READER? Y 

HI GH SPEED PUNCH? Y 

LISTING ON HIGH SPEED PUNCH? N 



FACT 


0215EXT 


FAD 


0000EXT 


FLOT 


0000EXT 


FMP 


0000EXT 




0000EXT 


OPEN 


0000EXT 


STO 


0000EXT 


WRITE 


0000EXT 


[0 


0473 


\C 


0205 


\FACT' 


0201 


\K 


0204 


\n 


200 


\N 


0471 


\i 


0251 


\2 


0261 


\3 


0331 



i e: AQ 
X ^ — ro 



\^ 


0354 


\5 


0406 


\6 


0445 


]3 


0210 


TA 


30 5 


TB 


0546 


TC- 


0422 


TD 


0471 



Loaded the SABR Assembler, responded to the initial dialogue 
and assembled both compiled programs. 

Load the Library programs using the Linking Loader. Set the 
switch register for the memory map. 

DEC-08-A2B3-5 



MAIM 01152 
OPEN 10 325 
SUBSC 11000 

FACT 01415 

ISTC 06062 

WRITE 02066 

lOH 03744 

CKIO 10321 

FLOT - 06200 

STO 05444, 

FAD 5010 

FMP 5623 

READ 02055 

SETERR 10400 

ERROR 10 503 

TTYOUT 10 227 

HSOUT 10255 

TTYIN 10200 

HSIM 10245 

FDV 05711 

CLEAR 06237 

I FAD 6117 

DIV 06443 

IREM 06616 

FSB 05000 

FLOAT 60 34 

FIX 05510 

IFIX 05556 

CHS 06221 

ABS 06636 

lABS 06700 

MPY 06400 

IRDSV 6723 

EXIT 10344 

CLRERR 10431 
0003 
0032 
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^ 1,1 ._! j._ui_ u:_„ <-„^^<^ nr>A c^trit-t fVia \jf ATM nmarar 



at location 01 152 (see memory map). 



2! = 


.2000000E+01 


4! = 


.2400000E+02 


6! - 


.7200000E+03 


8! = 


.4032000E+05 


10! = 


.3628800E+07 


12! = 


.479001 6E+09 


14! = 


.8717829E+11 


1 Ai = 


^20 922 79E.+ I 4 


18! = 


.6402374E+i 6 


20! = 


.2432902E+19 


22! = 


.1 124001E+22 


24! = 


» 620 44S4E + 24 


26! = 


.4032915E+27 


28! = 


.304888 3E+30 


30! = 


.2652529E+33 


32! = 


.2631308E+36 


34! 


EXCEEDS CAPACITY 


34! = 


.0000000E+00 



OF PROGRAM. 



End of expected program output. 
STATEMENT AND FORMAT SPECIFICATIONS 
Table 16-3 Statement Specifications 



STATEMENT 


FORM WHERE | 




(R or P indicates a required oi 
prohibited statement number, 
N indicates a nonexecutable 
statement) 


1 


COMMENT 


NP 


"C" in column 1 


columns 2 through 80 
will be ignored. 


CONTINUE 




CONTINUE 


control goes to next 
statement. 


ARITHMETIC 




v=e 


variable name= 
expression. 


GOTO 




GO TO n 


n is a statement number. 




GO TO (n^ , . . . , n J, i 


1 ^ i < m and control 
goes to statement n^. i is 
a nonsubscripted integer 
variable. 


IF 




IF (E) n,, n.^, n. 


"1 
control goes to 02 if 

expression E = 0. 
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Table 16-3. Statement Specifications (Cont.) 



STATEMENT FORM WHERE 


DO 




DO n i=m,, rrio, m.^ 


repeated execution 
through statement n 
beginning with i=:mj, 
incrementing by m^, 
while i is less than or 
equal to m^. m's and i 
may not be subscripted. 




DO n i=mp m^ 


m.5 assumed to be 1 . 


PAUSE 




PAUSE 


temporary halt, resumed 
by CONTinue key. 




PAUSE n 


octal equivalent of the 
integer n displayed. 


STOP 




STOP 


must be used to halt 
execution of a main 
program. 




STOPn 


octal equivalent of the 
integer n displayed. 


END 


NP 


END 


an END statement at the 
end of a subprogram tells 
the compiler there is no 
more program. 


READ 
WRITE 




READ (d, f) 1 
WRITE (d, f) 1 


d is device number, f 
is a FORMAT statement 
number and 1 is list of 
variable names separated 
by commas. 


FORMAT 


NR 


FORMAT (ki , . . . , k„) 


k's are format specifica- 
tions 


COMMON 


NP 


COMMON a, b, . . . , n 


a , . . . , h are nonsub- 
scripted variable names 


DIMENSION 


NP 


DIMENSION 

a^ (ki) , . . . , a„ (k,,) 


a's are array names and 
k's are maximum 
subscripts. | 


FUNCTION 


NP 


FUNCTION name 

(a, , . . . , a„) 


a's are dummy arguments 
and name must be 
defined as a variable 
containing the value of 
the function. 


SUBROUTINE 


NP 


SUBROUTINE name 

(a,,..., a„) 


a's are dummy arguments 
and name may not 
appear elsewhere in 
the subroutine. j 
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laDle 16- J siaiemem specincaiions (.t^oni.; 



STATEMENT FORM WHERE 


CALL 




CALL name 
(aj , . . . , a^,) 


a's are actual arguments 
of a subroutine and may 
be expressions. 


RETURN 




RETURN 


for subroutines, control 
returned to statement 
following CALL. For 
functions, evaluation of 
expression in calling pro- 
gram is resumed using 
value of the function. 


EQUIVALENCE 


NP 


(v^ , . . . , v„) , . . . , 


v's are variables or sub- 
scripted array names. 



Table 16-4. FORMAT Specifications 



KIND 



FORM 



WHERE 



Integer 



I rlw 



|r is the repetition count; w is total 
fieid width in characters. 



\ Floating Point } rFw.d 
(DecimaH 



F.xnnne.ntial 



Alphanumeric 



H (Hollerith 
or Literal) 






Control 



rF.w H 



rAw 



nHcharacters 
'characters' 



1 1 t^t3|_'^'^'&i-A^'i-'-l*v^XA^ 



r is the repetition count, w is field I 
width including sign and decimal | 
point, and d is number of charac- | 
ters to right of decimal point. 



r is the repetition count, w is field 
width including sign, decimal point, 
and d is the number of characters 
in exponent. 



r is the repetition count, w is field 
width. 



n is total number of characters fol- 
lowing H. Parentheses in each for- 
mat statement must balance. Char- 
acters enclosed within single quotes 
(SHIFT/ 7) are also printed. 



fr»rmat crkPr-ifipatinn in narp.nthe.ses 

A.V^X>*.V.W ^J^~^. -.. J- '-- 

is repeated n times. 



inHinatpi hf>oinnin<r nf a new data 

record. 
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STORAGE ALLOCATION 
Representation of Constants and Variables 

INTEGERS 

Integers are each allocated one machine word. They are repre- 
sented in two's complement binary. 



I 



1 



11 



sign . Two's complement magnitude 

Positive numbers in two's complement binary are represented as 
straight binary with the first bit zero. 



11 111 111 111 



37778 = +2047h), the largest positive integer. 
Negative numbers are represented by replacing each bit with 
a 1 and each 1 bit with a 0, then adding 1 to the binary result. 

+ 1 is 



00 000 000 001 



1 is 



1 11 111 111 110 



+ 1 = 



1 11 111 111 111 



=7777, 



The largest negative number is —2048 which is represented by 
40008 or 



1 00 000 000 000 



REAL NUMBERS 

Real numbers are each allocated three machine words. They 
are represented as a binary mantissa multiplied by 2 raised to a 
binary exponent: 

Word 1 



.. 





1 8 9 11 


s 
Word 2 


ign 


exponent mantissa 







11 1 


Word 3 




mantissa 






1 — 


" 1 



mantissa 
The sign of the number is bit of word 1 (0=+, 1=—). The 
value and sign of the exponent are obtained by subtracting 
1 000 000. (or 200«) from bits 1 through 8 of word 1. 
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Example 1 



Example 2 





110 000 001 100 






-0- 






-0- 




Sign: I2 
Exponent: 10 000 0001 2 
Mantissa: .lOOo 
Exponent = 20 1 8-2008= 1 s 
Mantissa = .48 
No. = -.48 X 2si 

= -1/2 X 2 = -1 




010 000 101 100 






-0- 






-0- 




Si 

E 
IV 
IV 
E 


gn: O2 
xponent: 10 000 101 
iantissa: . 1 2 
[antissa = .48 
xponent = 205s-2008 
lo. = .4g X 28^ 

= lA V '17 = ^f 


=5s 



Storage of Arrays 

Array variables are stored in core according to USA Standards, 
in columns and from top to bottom. For example, the array IJ 



DIMENSION IJC5) 



if started at location 0705 would be stored: 



Ui 



i 1 



IJ (1) 






0705 


IJ (2) 






0706 


IJ (3) 






0707 


IJ (4) 






0710 


IJ (5) 




0711 
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The real array, T 



DIMENSION T(3) 



Starting in location 0612 would appear: 

01 89 11 

0612 
0613 
0614 
0615 
0616 
0617 
0620 
0621 
0622 

Two-dimensional arravs are stored as shown below. 



T (1) 


1 1 










T (2) 


1 1 










T (3) 


1 1 











DIMENSION I(4;-2) 



01 11 


1(1,1) 




1(2,1) 




1(3,1) 




1(4,1) 




1(1,2) 




I (2, 2) 




I (3, 2) 




I (4, 2) 





0566 
0567 
0570 
0571 
0572 
0573 
0574 
0575 

In the array A(M(J, K)), M is a two-dimensional integer array 
stored as indicated above. No element of M may be less than 1. 

If the element M(3, 4) contains the integer 7, then A(M(3, 4)) 
will be evaluated as A(7). The largest integer stored in M must 
not exceed the dimensions of A. 

REPRESENTATION OF N-DIMENSIONAL ARRAYS 

Although arrays of more than two dimensions are illegal, the 
values of the subscripts of larger arrays may be calculated by using 
the following algorithm: 

ii+Di*02-l)+Di*D2(i.-l)+. . .Di*D,. . .D,(i,-1) 
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where the subscript values are h, u. . .in in an array whose dimen- 
sions are Di, D^. . .D„. 

Subprograms may be written to compute and insert subscript 
values in such illegal arrays. For example, in an array A(3, 4, 5), 
the following subprogram inserts the value of element A(N1, N2, 
N3): 

READ ( 1 .. 5 ) N 1 . M2 ^ N3 * VALUE 
I=Ni +3*C\'2-i )+3*4* CN3-i ) 
ARRAY ( I )=VALUE 
5 FORMAT (311 ^F5. 3) 
END 

Common Storage Allocation 

Common storage begins in absolute location 200 in field 1. 
Variables are assigned locations in the common storage area in 
ascending order as they appear in COMMON statements. 
For example: 



COMMON A^J^K 
DIMENSION A(2^2)^J(4) 



would be stored as follows. 







A(l,l) 












A(2, 1) 












A(l,2) 












A(2, 2) 








J(l) 




J(2) 




J(3) 




J(4) 




K 





200 
201 
202 
203 
204 
205 
206 
207 
210 
211 
212 
213 
214 
215 
zio 
217 
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NOTE 

K does not appear in a DIMENSION statement. 

If the COMMON statement of another subprogram defines 



COr^MOM J 
DIMENSION J(5) 



J(l) through J(5) will be assigned to locations 200 through 204 
respectively, thus overlapping the variables A(l, 1) and A(2, 1). 
The Loader is not aware of this, therefore it is advisable to make 
COMMON statements identical in all subprograms in which they 
appear. 

However, the statements 



COMMON DUMMY^J 

DIMENSION DUMMY(2>2), J(4> 



would not produce overlapping and could be used in subprograms. 
In the example above, DUMMY is an arbitrary variable which 
need not be used in the subprogram. 

IMPLEMENTATION NOTES 
Implied DO Loops 

Because of core memory restrictions, 8K FORTRAN does not 
have implied DO loops in READ and WRITE statements. How- 
ever, a 3imple way to circumvent this restriction has been imple- 
mented. Normally a carriage return/line feed (CR/LF) is produced 
at the end of each WRITE statement. The CR/LF can easily be 
suppressed by terminating the WRITE statement with a comma. 
The CR/LF can be generated explicitly in one of two ways: 

1. By using a WRITE (d, f) instruction. 

2. By using a FINI pseudo instruction. 

The second method is more efficient since it generates only four 
words of code, whereas the first method will generate somewhat 
more than that. For example, the following statements: 



DO 10 J=UK 
10 VJRITE (1,20) CAC J,K),K=UN) 

20 FORMAT (10F7.3) 
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1 • 1 . -i 1 1 ;_ OT^ T-</~VT>TrT> A "KT 1J 1 ^ii ir_11 . 

wnicn are noi legai ni oiv rwr^.iJtv/\x>, couiu uc wniicu as luiiuws; 

DO 15 J=1jM 

DO 10 K=1;,^J 

10 WRITE (1^20) ACJjK)j. 
15 WRITE (1,20) 
20 FORMAT (F7.3) 



or 



DO 1 5 J=i jM 

DO 10 K=1,N 
10 WRITE (1,20) A(J,K), , 
1 5 F I M I 
20 FORMAT (F7-3) 

The second method is preferred for more efficient utilization of core 
memory. Note that it is not necessary to specify a repetition count in 
the FORMAT statement since the I/O handler initializes itself to 
the beginning of the FORMAT statement each time the WRITE 
statement is executed. 

FORMAT Handling 

For more complicated FORMAT handling a som.ewhat different 
technique can be used. For example: 

WRITE (1,20) (A(K),K=1,M) 
20 FORMAT CF7.2,2E1 5.6) 



which again is not legal in 8K FORTRAN, could be written as 
follows: 

(comma suppresses CR/LF) 

WRITE (1,20), 

DO 10 K=i ,N 
10 CALL IOH(A(K)) 

FIIXII 
20 FORMAT (F7.2,2E1 5.6) 

In the example above, the statement WRITE (1, 20), generates the 
following assembly code: 



CALL2, WRITE 
ARG \20 
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The statement CALL lOH (A(K)) will generate code to caU the 
subscripting routine SUBSC and will then generate the following 



code 



CALL l^IOH 
ARG [0 



where [0 is a temporary location generated by the compiler. Finally 
the FINI pseudo instruction will generate the following: 



CALL l^IOH 
ARG 



which will cause execution of the WRITE statement to be com- 
pleted. 

Although only WRITE statements have- been shown in the pre- 
vious examples, the same techniques apply equally to READ 
statements. To read in an array of arbitrary size, one mi?ht use the 
following FORTRAN IV statements 

DO 1 5 I - 1 , M 
15 READ (ID, 100) CACI, J), J=i,M) 

100 FORMAT (F5.2,F5.0,2F5.2,2F5.0 

This will not work with 8K FORTRAN, but the correct results can 
be obtained using the following. 

DO 15 I = 1,M 

READ (ID, 100) 

DO 10 J=1,M 
10 CALL lOHCACI^J)) 

15 FIMI 

100 FORMAT (F5.2,F5.0,2F5.2, 2F5.0) 

Numeric Input Conversion 

In general, numeric input conversion is compatible with most 
other FORTRAN processors. A few exceptions are listed below: 

1. Blanks are ignored except to determine in what field digits 
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fall. Thus numbers are treated as if they were right justified 
within a field. In an F5.2 format, the following: 



12 
12 
.12 
00012 



would be read as the number 0,12. 
2 A null line delimited by two CR/hts will be treateu as a 
line of blanks, and blanks will be appended to the right ot a 
line (if necessary) to fill out a FORMAT statement. Thus: 



30 



REAUC 1 J 30 )Ajo 

FORMAT (^HA = ,F7.2/4HB = >F7.2) 



would all be identical under an F5.2 format. If an entire line 
is blank, numeric data from that line will be read as zeros. 
3. No distinction is made between E and F format on input. 
Thus 



100' 

1 00 E2 
1 »E2 
10000 



would all be read identically under either an F5 
format. 






Alphanumeric Data Within FORMAT Statements 

Alphanumeric data may be transmitted directly from the FOR- 
MAT statement by two different methods: H-conversion or the use 

of single quotes . 

Hollerith (H) format is used to output data only. An attempt to 
use H format specifications with a READ statement will cause char- 
acters from the format field to be either typed or punched. This may 
occasionally be a useful feature since it provides a simple way of 
identifying data that is to be read from the Teletype. For example, 



FORMAT ('PROGRAM COMPLETE') 
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would cause A = and B = to be typed out before the data was read. 
The same effect is achieved by merely enclosing the alphanumeric 
data in single quotes. The result is the same as in H-conversion; on 
input, the characters between the single quotes are replaced by input 
characters, and, on output, the characters between the single quotes 
(including blanks) are written as part of the output data. For ex- 
ample, when referred to from a WRITE statement, 

50 FORMAT ( 'PROGRAM COMPLETE' ) 

would cause PROGRAM COMPLETE to be printed. This method 
eliminates the need to count characters. 

Special I/O Devices 

I/O can be performed on devices other than Teletype and high- 
speed paper tape reader and punch in several different ways: 

1 . If it is desired to use other devices in place of the high-speed 
paper tape reader and punch, rewrite the Utility library sub- 
routine defining the entry points -for the desired input and 
output devices as HSIN and HSOUT respectively. The source ^ 
tape for the utility subroutine is available from the program 
library and is very short. Refer to Chapter 14 for more 
information. 

2. If it is desired to input or output on a special device but not 
in ANSCII format write a subroutine to handle the particular 
device in the SABR assembly language. For more informa- 
tion refer to Chapter 1 4. 

3. If it is desired to add additional devices which can be used 
with READ and WRITE statements, then edit part I of the 
Library Subroutine lOH. New entries must be made in the 
device transfer table at the beginning of lOH. Copies of this 
source tape and listings of the library subroutines are avail- 
able from the program library. The service routines for the 
additional I/O devices must be written in SABR assembly 
language and can then be assembled along with the revised 
version of lOH. 

4. Programs written in SABR language can call PAL subrou- 
tines in various ways: 

a) A JMS 7000 instruction will call a PAL program which 
starts at location 7000 in the same memory field. 
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b) A CONTINUE (or PAUSE) statement might be inserted 
in the user's FORTRAN program. Then JMS to the 
PAL subroutine may be inserted using the switch regis- 
ter. 

It is possible to load any size PAL III program linkage with an 
8K FORTRAN program by merely dimensioning an integer vari- 
able to the proper size for the PAL III program. This offers two 
advantages, virtually unlimited size programs in PAL III can be 
linked to 8K FORTRAN main programs, and none of the library 
routines are disturbed by this linkage. 
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FLOATINFG POINT SYSTEM 

The floating point system maintains a constant number of 
significant digits throughout programmed computations and per- 
forms its own input, arithmetic and output operations. 

Floating point notation is particularly useful for computations 
involving numerous multiply and divide operations where operand 
magnitudes may vary widely. The system stores very large and very 
small numbers by saving only the significant digits and computing 
an exponent to account for leading and trailing zeroes. 

Floating Point Representation 

A floating point number consists of a mantissa and an exponent 
such that the mantissa, multiplied by the base (radix) of the num- 
ber system in use, raised to a power as supplied in the exponent, 
gives the value of the number in fixed point notation. 

As an example, in fixed point notation the number twelve can be 
represented as 

12 
or * 

12.0 

In floating point notation with radix of 10, the number might 
appear as 

.12 • 10^ 

where the mantissa is .12 and the exponent, 2. 

A fraction, such as twelve ten-thousandths, is represented as 

.0012 

in fixed-point notation. It appears in floating point representation as 

.12 • 10-- 

16-5 



the minus sign before the cxpunciit indicating that the siguificant 
digits of the mantissa are to be shifted right from the decimal point. 

BINARY NOTATION 

With radix of two, the decimal number twelve is represented as 

1100 

Its representation in floating point format is, logically, 

1 1 nn . n-t 

In computer operations there is no necessity for keeping track 
of the base; all operations are in binary. Multiplication and divi- 
sion are accomplished by shift operations: each one-place shift 

i.K/ Lll't' l^JLt JL WL/JLVaWXlCO XXlU-AWApi.AWU.fcXV/lX C/J l.VJKJy WCI.VA1. W^Wl-J. T C4.>.W.LX«, Oi.*.'^^*' 

to the. right represents division by two (see Introduction to Pro- 
gramming, Chapter 1). Thus, the binary exponent is used to keep 
track of the number (and direction) of shift operations necessary 
to correctly scale the mantissa. 

Storage 

The floating point system utilizes three consecutive locations, 
registers 44, 45 and 46, to store the exponent and double precision 
mantissa. 



SIGN OF J 

r n 



£XPONENT 



SIGN OF 
IViANTISSA ' 



11 



BINARY exponent; 
TWO'S COWPLEMENT 
SiGNtD QuAN I II Y 



i i HIGH ORDER 

I ! MANTISSA 



12 23 



LOW ORDER 
MANTISSA 



24 35 



Normalizatioii 

In computing a msintissa from decimal input the system uses 
the convention' 

1^ <|MANTISSAi < 1. 

iO-O 



The input valu& is said to be normalized when scaled in this man- 
ner. The value of the number is then : 



MANTISSA • 2 EXPONENT 
where the MANTISSA is a signed quantity. 

Instruction Set 

The basic floating-point operations are: 
Load floating accumulator 
Store floating accumulator 
Add to floating accumulator 
Subtract from floating accumulator 
Multiply by floating accumulator 
Divide into floating accumulator 
Normalize floating accumulator 



The floating-point instructions are: 



Op Code Mnemonic 



Effect 



1 



FADD 



FSUB 



FMPY 



FDIV 



FGET 



Floating Addition 

Add the contents of the effective ad- 
dress to the floating accumulator. 

Floating Subtract 

Subtract the contents of the effective 
address from the floating accumu- 
lator. 

Floating Multiply 

Multiply the floating accumulator 
by the contents of the effective ad- 
dress. 

Floating Divide 

Divide the floating accumulator by 

the contents of the effective address. 

Floating Get 

Load the floating accumulator with 

the contents of the effective address. 
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op Code Mnemonic Effect 

6 FPUT Floating Put 

Store thg contents of the floating 
accumulator at the locations speci- 
fied by the effective address. The 
contents of the floating accumulator 
are unchanged. 

7 FNOR Floating Normalize 

Normalize the contents of the float- 
ing accumulator. 

is decoded as follows: 

Bits 8-11 =0000 Floating Exit 

Return control to following instruc- 
tion. 

= 0001 Floating Square 

Square the contents of the floating 
accumulator. 

= 0010 Floating Square Root 

Take the root of the absolute value 
of the floating accumulator. 

C^Cfi 1 ^^^ 1111 X!7-vr^r\f^ W oWlifc /-» *->-rYi -n^ o »K^ C 

\/\J X. 1 X X X X JL^J\.^<Xll\J.<XiJl\^ Iw-VJllllllcXllViO 

The PAL III and MACRO assemblers recognize all of these 
mnemonics except SQUARE and SQROOT, which may be de- 
fined as: 

SQUARE = 0001 
SQROOT = 0002 

NOTE 

The PAL-D disk assembler does not recog- 
nize these Floating point mnemonics. Thus 
the mnemonics FADD through FPUT must 
' uC uXcu as niemory reterence instructions, 
and the mnemonics for FNOR through 

c^y^rt d'^/-\nr ^ i J_/: I i i_ 

OK^s\.yjKJi must uc uciiiicu a& usci i>yuivui^ 

in any program to be assembled with PAL-D. 
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Floating point operations are summarized by the following ex- 
pressions. 

FADD Y; 1000; C(FAC) + C(Y) -» C(FACn 
FSUB Y; 2000; C(FAC) - C(Y) -» C(FAC) Uesuit is >. 
FMPY Y; 3000; C(FAC) X C(Y) -^ C(FAC) ['formalized I c(Y) 
FDIV Y; 4000; C(FAC) -J- C(Y) -> C(FAC)^ ? unchanged 

FGET Y; 5000; C(Y) -^ C(FAC) J 

FPUT Y; 6000; C(FAC) -^ C(Y) 
FNOR ; 7000; C(FAC) normalized -^ C(FAC) 
FEXT ; 0000; exit from interpreter to instruction following 

this command 
SQUARE ; 0001; C(FAC)2 -^ C(FAC) 
SQROOT ; 0002; C(FAC)/2 ^ C(FAC) 



Interpreter 

All arithmetic operations are called through an interpreter. The 
interpreter contains, at all times, the address of the memory loca- 
tion containing the next pseudo instruction to be executed. This is 
initially stored when the program enters the interpreter using an 
effective JMS 5600. 

When the interpreter encounters an instruction with an op code 
of and with bits 8-11 of the psesudo instruction equal to 0, it 
exits to the next memory location. 
Example: 



SQROOT: 


=0002 




*7 






5600 






*2003 








JMS I 


7 




FGET 


A 




SQROOT 






FPUT I 


B 




FEXT 






HLT 




A^ 


0003 
2000 
0000 




B, 


300 
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When this program is started at 0200, it will halt at location 
205. The state of the machine will be: 

44/ 0002 

45/ 2000 floating accumulator contains 

46/ 0000 (1/2) • 22 or 2.0 

206/ 0003 

207/ 2000 register A contains 4.0 

210/ 0000 

300/ 0002 

301/ 2000 answer stored here 

302/ 0000 

FLOATING POINT PACKAGE VERSIONS 

The four versions of the floating-point package are: 

PACKAGE 1— DEC-08-YQ1B-PB 

This is the basic floating-point package, consisting of the basic 
input/ output routines and basic arithmetic instructions. Its core 
limits are: 

7; 40-61; 5600-7577 

PACKAGE 2— DEC-08-YQ2B-PB 

This is the basic package, but with the output modified by the 
output controller to allow for formatting of output. Its core 
limits are: 

7; 40-62; 5400-7577 

PACKAGE 3— DEC-08-YQ3B-PB 

This is the basic package plus the extended functions. Its core 
limits are: 

7; 40-61; 5100-7577 

PACKAGE 4— DEC-08-YQ4B-PB 

This is the basic package plus the output controller and the ex- 

LX^X.XV4.V/\-I- 1. t^XX^v'L&V'l.J.kJa A CO V^V.'X V^ AX.X1.JLA.L.O UL W/ < 

7; 40-62; 4700-7577 

In ail versions of the floating-point package, the input and output 
routines may be called interpretively (see User Subroutines). ^ 
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Assembly Instructions 

The various versions of the floating point package are assembled 
from the floating point source tapes by the following methods: 
PACKAGE l—(DEC-08-YQlB-PB)— Assemble together, using 
PAL-3, source tapes 1 (Basic I/O) and 4 (Interpreter) in that 
order. 

PACKAGE 2— (DEC-08-YQ2B-PB)— Assemble together, using 
PAL-3, source tapes 2 (Basic I/O plus Controller) and 4 (Interpre- 
ter), in that order. 

PACKAGE 3— (DEC-08-YQ3B-PB)— Assemble together, using 
PAL-3, source tapes 1 (Basic I/O), 3 (Extended Functions) and 
4 (Interpreter) in that order. 

PACKAGE 4— (DEC-08-YQ4B-PB)— Assemble together, using 
PAL-3, source tapes 2 (Basic I/O plus Controller) 3 (Extended 
Functions), and 4 (Interpreter), in that order. 

NOTE 

Assembly of PACKAGES 3 and 4 yields five 
PAL-III RD diagnostics — one each for the 
symbols PSINF, PCOSF, PATANF, PEXPF, 
and PLOGF. These symbols are used to 
insert the proper address constants for the 
extended functions into the interpreter's ex- 
tended op code calling table — see User Sub- 
routines. 

INPUT ROUTINE 

The basic floating-point package contains an input routine to 
read characters from the Teletype keyboard. Input format is float- 
ing decimal which is converted to floating-point binary format. 
The number 726.7 may be typed in any of the following forms: 

726.7 

.7267E3 

.7267E+03 

+7267E-1 

etc. 

Input is terminated when a character is typed that is not a part 
of a format. The conversion of "12.0." would be terminated on the 
second "." 
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The input routine is entered with an effective JMS 7400. It 
returns control to the instruction following the calling JMS upon 
receipt of a terminator. The floating accumulator contains the 
input number in normalized floating-binary. Register 0057 con- 
tains the terminating character in ANSCII, and C(0060) indicates 
whether or not there was a valid input. 
Example: 



*5 






7-^00 






*7 






560 






*20 








JMS I 


5 




JMS I 


7 




FPUT 


/\ 




FEXT 






JMS I 


5 




JMS I 


7 




FPUT 


■Q 




FEXT 






HLT 






■3 

'A 




B. 


3 








/IMPUT ROUTINE 
/CALL FLOATIMG POINT 



When this program is started at 0200 and the following is typed: 

X2.0Y 
The program will halt at location 0210, and A and B will contain 

A, 


n cnri C(^l\ — 0^^^ tVip cpc^nri TPRMTNi ATQR 

B, 0002 

0000 
The first input was considered a because an "X" terminator 



^•Vi i.l.Sii.lW.Jl 



J- 
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This program could be written to ignore the non-numeric infor- 
mation as follows: 



*5 



*7 



*200 



A, 



B^ 



7403 



5600 



JMS I 


5 


TAD 


60 


SM^ CLA 




■JMP 


• ■" 


JMS I 


7 


FPUT 


A 


FEXT 




JMS I 


5 


TAD 


60 


SNA CLA 




JKP 


• "" 


JMS I 


7 


FPUT 


B 


FEXT 




HLT 


































/CALL I\TPUT ROUTINE 
/ANf VALID INPUT? 

/NO - IGNORE 
/YES 
/STORE IT 

/GET NEXT 

/VALID? 
/NO - IGNORE 
/YES 
/STORE IT 

/HALT 



Register 57 may be used for integrating control characters into 
the input. Register 56 is a switch that has the following meaning: 

If C(56) = 0, do not type a line-feed after a carriage-return is read. 
If C(56) ^0 , type a line-feed when a carriage-return is input. 
This switch is initially set to 7777. 

Overflow 

The input conversion routine halts on overflow during calcula- 
tion of the mantissa. Typing RUBOUT and pressing CONTINUE 
on the console will restart the routine. 

Overflow during exponent calculation yields an unpredictable 
result; the package may halt in which case it may be restarted as 
above. 
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r'^^^r^it^T nf tVifi innnt rnntinp ic annrnximntf^lv frnm .QQQQQ9F. — 

615 to .999999E+615. 

The overflow halt may be ehminated by depositing 7000 (NOP) 
into location 7564. If this is done or if the user continues from 
the overflow halt without typing RUBOUT, the contents of the 
floating accumulator will be unpredictable. 

RUBOUT 

If RUBOUT is struck before an input delimiter, the input rou- 
tine is restarted and previous numbers ignored. 

RUBOUT 

276 i IT 

The input routine exits with 1 in the floating accumulator. 

OUTPUT ROUTINE 

The output routine is entered with an effective IMS 7200. Upon 
entry the contents of the floating accumulator are converted to 
floating-point decimal and typed out in the following format: 

± O.XXXXXXE ± XX 
If the floating accumulator contained: 

44/ 0002 

2000 
0000 

and the output routine were entered, 

+ 0.200000E + 01 

would be typed. Control returns to the instruction following the 
calling IMS instruction. The contents of the floating accumulator 
are lost. 

The fioatin"-outDUt routine has a switch in location 0055 on 
page 0: if not equal to 0, carriage-return/line feed follows each 
orintout (initial value 7777.) 

Output scaling errors can cause a floating point number, stored 

1 A-l A 



correctly in core, to be output incorrectly. Users should preserve 
the core image of data to be used in further calculations in a save 
area, using the FPUT instruction. Subsequent routines reference 
thi.s save area for needed data. 

The save area can also be punched, via ODT or a binary punch 
routine, and loaded when needed. 

The range of the output conversion routine is approximately 
the same as that of the input routine. 

Output Controller 

This is an additional routine that modifies the basic output rou- 
tine to enable it to format output. It is incorporated in floating point 
packages 2 and 4. 

The controller is called, like the basic output routine by an ef- 
fective JMS 7200. It requires two pre-set parameters: 

C(62) = total number of digits to be output. If C(62) = 0, output 

in E format. C(62) is initially set to 0. 
C(AC) = number of digits to the right of the decimal point. If 
C(AC) = 0, do not type a "." 

If the number in the FAC is larger than the field width allows" 
the sign of the number is typed and the field filled with "X's"- if 
smaller, the field is filled with spaces. 

User Subroutines 

When the floating-point interpreter encounters a op code it 
further decodes bits 8-11. If these bits equal 0, the interpreter 
exits. If the bits are nonzero, they are used in a table look-up to 
specify the address of a subroutine. The called subroutine may 
use the floating-point interpreter, the input, or the output but it 
may not use bits 8-1 1 to call another subroutine. 

For example, the interpreter has a subroutine to negate the 
floating accumulator. Its entry point is 6000. If the negate sub- 
routine were to be called by 0010 in the interpreter mode, 6000 
would be placed in address 6554 of the calling table. Input and 
output could be called in the interpreter mode if 7400 were placed 
in 6555 (0011) and 7200 were placed in 6556 (0012). 
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\'EGATE: 


=0010 


I>JPUT={ 


30i 1 


OUTPUT^ 


= 0012 


SQUARE: 


=0001 


*7 




5600 




*200 






KCC 




TLS 




JMS I 




i:\fPuT 




SQUARE 




NEGATE 




OUTPUT 




FEXT 




■UI T 



/EMTER INTERPRETER 



/( 






/SQUARE IT 

/CALL OUTPUT ROUTINE 

/CALL OUTPUT ROUTINE 

/EXIT 

/HALT 



To avoid timing errors the user must pattern his typeout rou- 
tines after that in the floating point packages: 

TSF 

JMP .-1 
TLS 

This routine waits for the Teletype flag to be set before executing 
the TLS instruction. 

Summary of Basic Package 

ENTRY POINTS 

7400 Floating Input 
7200 Floating Output 

NOTE 
Both the input and the output routines 
require that register 7 contain the interpreter 
entry point: 5600. 

FLAGS 

55 If ^ 0, type carriage-return/line-feed after output. 

56 If ^ 0, follow each input carriage-return by a line-feed. 

J I 

60 



Equals if no valid input. 



negative number. 
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COMMANDS . 
FADD 
FSUB 
FMPY 
FDIV 
FGET 
FPUT 
FNOR 
FEXT 
SQUARE 
SQROOT 



1000 
2000 
3000 
-4000 
5000 
6000 
7000 
0000 
0001 
0002 
0003 

0017 



Floating Add 
Floating Subtract 
Floating Multiply 
Floating Divide 
Floating Get 
Floating Put 
Floating Norrnalize 
Floating Exit 
Square 
Square Root 

Expandable 



STORAGE 

The floating accumulator is in registers: 

44 — Exponent 

45 — High Order Mantissa 

46 — Low Order Mantissa 



Floating Point Algorithms 

ADDITION 

Floating-point addition is carried out by first aligning the binary 
points of the two numbers. This is accomplished by scaling the 
smaller number to the right. Then the mantissas are both scaled 
right once so that overflow will not occur into the sign bit. A 2's 
complement addition of the mantissas is then made. The result is 
normahzed and control returns to the interpreter. This may be 
represented as: 

Can operands be aligned? , 

i ] 

Yes No 

Align Exponents 

Add Mantissas Put larger number in FAC 

Normalize 

Return to Interpreter* — 
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SUBTRACTION 

Floating-point subtraction is accomplished by negating the op- 
erand, and then calling the addition subprogram. 

Negate Operand 
Call Addition 

MULTIPLICATION 

Floating-point multiplication is accompiisned by adding the ex- 
ponents together and then performing a double-precision multi- 
plication. The result is normalized and control returns to the in- 
terpreter. 

Add Exponents 

Multiply Mantissas carrying result to 35 bits 

Normahze 

Return to Interpreter 

DIVISION 

Floating-point division is accomplished by subtracting the ex- 
ponent of the divisor from the exponent of the dividend. The 
mantissa is divided and the result is normalized. Control returns 
to the interpreter. 

Is divisor = 0? 



No Yes 

if i 

Subtract Exponents ^ 

Divide Mantissas -f 1 to error flag 

Normalize Leave FAC unchanged. 

i 

Return to interpreter ^ 



SQUARE 

The square routine calls the muliipiication routine internally. 

SQUARE ROOT 

The square root is calculated using Newton's method in which 

nn inificsl uT^r^rrsYimcitirm ic manp anri tnpn parn cnrr-Hpnintr nrs- 

proximation is calculated. The routine exits when two successive 

CijL/L^X V./yVlXJ.JLCtLXVj'AlO C4.X V V^»J^t4.X l-V./ VV Xl.XJXl.1 1,1. J. V XW»-».J(^ )J1^j.jlxjlji.w«.4.XJII, (U'XV V/X VXXX/ 

mantissas. 
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Form jfirst approximation, Xi, of /N: 
then: 

-»Xi+i = 1/2 (Xi + -- ) 

is |Xi — Xi+i I < least significant bit? 

No 



Yes 
Return to interpreter 

ERROR FLAG 

Division by causes C(61) to be incremented by 1. The FAC 
is unchanged. 

Attempting to extract the square of a negative number causes 
C(61) to be incremented by 1. The root of the absolute value is 
taken. 

The contents of 61 are set to at the beginning of each square 
root operation (but not at the beginning of each divide operation). 

EXPONENT UNDERFLOW 

The FAC is set to zero on the occasion of exponent underflow. 

Fixed to Floating/ Floating to Fixed 

Since the floating-point package stores numbers in the following 
format: 



SIGNED EXPONENT 



2's COMPLEMENT SIGNED MANTISA 
-IMPLIED BINARY POINT 



and since the exponent indicates where the real binary point is, 
this information may be used to convert a fixed point number to 
floating point or a floating point number to fixed point. 

For example, assume that there is an integer in the accumulator 
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that is less in magnituae tnan zu4/. lo noat tnis numoer, tne lOi- 
lowing sequence of steps may be employed: 



DCA 45 /PUT I\'TO HICH-ORDER MAMTISSA 

/PUT IMTO LOW -ORDER MANTISSA 
/ll (10) I\^TC 
/EXPONENT 
/CALL INTERPRETER 
/NORMALIZE 

• • * 

C13:. 0013 /ll (DECIMAL) 



DCA 


46 


TAD 




DCA 


44 


JMS I 


7 


EN OR 




FEXT 





At point C, we have set the binary point of the integer to the right 
end of the high order mantissa word, or eleven (decimal) locations 
to the right of the implicit binary point. 

To float this number, the floating accumulator is scaled right 
until the exponent contains the location of the desired binary point. 
To fix the floating accumulator as an 11 -bit signed integer, the 
followino^ sequence of coding may be employed: 



GOj 



CLA 






TAD 


44 


/FETCH EXPOVE'^T 


SZA SMA 




/IS THE NUMBER<1? 


JM? 


.+3 


/>J0 5 


CLA 




/YES: FIX IT TO 


JMP 


DOME+1 




TAD 


Ml 3 


/NO: SET BINARY POINT AT 


SNA 




/I 1(10) PLACES TO RIGHT OF CURRENT 


JKP 


DONE 


/IT IS ALREADY THERE: ALL DONE 


SMA 




/TEST TO SEE IF IT IS TOO LARGE 


JMP 


ERROR 


/YES: NUMBER >2**13 


DCA 


44 


/NO: SET SCALE COUNT 


CLL 




/0 TO C(L) 


TAD 


45 


/FETCH MANTISSA 


SPA 




/IS IT <0? 


CML 




/YES: PUT A 1 IN LEFT 3T T 


RAP. 




/SCALE RIGHT 


DCA 


45 


/RESTORE IT 


ISZ 


44 


/TEST IF SHIFTED ENOUGH 


JMP 




/NO: CONTINUE 


TAD 


45 


/ANSWER IN CCAC) 



'0IN1 



DONI 



M13:. -13 /-U (DECIMAL) 



1 /' i^r\ 



This may be coded as a subroutine. 

EXTENDED FLOATING POINT PACKAGE 

The extended floating point package provides the following addi- 
tional operations: 

0003 Sine: take the trigonometric sine of the floating ac- 
cumulator (radian measure); return the result in the 
floating accumulator. 

0004 Cosine: take the trigonometric cosine of the floating 
accumulator (radian measure); return the result in 
the floating accumulator. 

0005 Arctangent: compute the angle whose tangent is in 
the floating accumulator; return the result (radian 
measure) in the floating accumulator. 

Exponential: compute e(=2.71828 . . .) raised to the 
power contained in the floating accumulator; return 
the result in the floating accumulator. 



0006 



0007 Logarithm: take the natural logarithm (base=2.71828 
. . . ) of the positive number in the floating accumu- 
lator; return the result in the floating accumulator 
(N.B. — attempts to take the logarithm of a negative 
or zero argument yield an -error halt. 

SINE 

The sine routine makes use of the identity: 

SIN(X)=COS( ^ - X) 

and subsequently calls the cosine routine. 

COSINE 

The argument is first brought within the range: 

by use of the identity: 

COS(X) =-COS(X-7r) 
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The cosine of the resulting angle is computed using a sufficient 
number of terms of the series: 

X^ X^ X" 
COS(X) =1- 



2! 4! 



ARCTANGENT 

The arctangent is computed using a sufficient number of terms 
of the appropriate series, depending on the sign and magnitude of 



(X^ ^ 1) 
(X > i) 
(-1>X) 



EXPONENTIAL 

The exponential is computed using a sufficient number of terms 
of the series: 

V2 y:5 V4 



the argument: 




ATAN(X)=X 


%/• X-" x^ 


3+5 7 + ••• 


ATMMf'X'^ — 


1 1 1 

1 ■ ■ + 


/vi/viNl^^v; 


~ X 3X^^ 5X-^ ■ 


Al^AXT('V^ — 


TT 1 1 1 

1 ] 


AlAlN(,^j — 


2 X "^ 3X'' SX'-^ 



EXP(X)= 1 +X+^jj- +^7- + 



LOGARITHM 

The logarithm (natural) of the argument is computed using a 
sufficient number of terms of the imbedded series: 



I X+1 1 X-1 3 1 X-1 5 

LOG(X)=2|-^^-P + --x+r + Tirr 



I 



(X>0) 



SAMPLE PROGRAM 

Input is A and B. Output is Y=LOG(COS(A/B)+ /A«B) 
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SQROOT=0002 

COS=0004 

LOG=0007 

*5 

7400 

7200 

5600 

/USES EXTEMDED 



/DEFINITIO^vIS TO ASSEMBLER 



IMTERPRETER 



*20^ 
KCC 

TLS 
BEG 



IM. 



A, 



TEMP. 



JMS I 


5 


/IXfPUT A 


JMS I 


7 


/ENTER INTERPRETER 


FPUT 


A 


/STORE A 


FEXT 




/EXIT 


JMS I 


5 


/INPUT B 


JMS I 


7 


/ENTER INTERPRETER 


FPUT 


B 


/STORE B 


FMPY 


A 


/A.B 


SQROOT 




/EXTRACT ROOT • 


FPUT 


TEMP 


/STORE IT 


FGET 


A 


/LOAD FAC WITH A 


FDIV 


B 


/DIVIDE... BY B 


COS 




/TAKE COSINE 


FADD 


TEMP 


/ADD 


LOG 




/TAKE LOG. 


FEXT 






JMS I 


6 


/OUTPUT ANSWER 


JMP 


BEGIN 
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Using extended functions the previous Sample program can be 
rewritten as: 



SQR00T = 2 
COS = /{ 
L0G = 7 
INPUT = 1 3 
0UTPUT = 1 4 
*7 

5600 
*200 

kcc 

TLS 

BEGI^J-> 



JMS I 

IMPUT 

FPUT 

INPUT 

FPUT 

FMPY 

SQROO' 

FPUT 

FGET 

FDIV 

FCOS 



A 

B 
A 



A 

B 



/CALL INTERPRETER 
/READ A 
/STORE IT 
/READ B 

/A.B 

/ ( A . B ) * * . 5 



A;, 



FLOG 

OUTPUT 

FEXT 

JMP 









BEGIN 



TEMP^ 













1 /: /y A 



Extended Function Operating Domains 

SINE, COSINE 

Trigonometric sine and cosine are designed for: 

argument < 10" 

No guarantee is made for arguments which he outside this range; 
the user is moreover cautioned that as the argument becomes large 
compared with irll, significance will be lost in the result. 

ARCTANGENT 

Trigonometric sine and cosine are designed to operate for: 

argument < 10^*'" 
No guarantee is made for arguments which lie outside this range. 

EXPONENTIAL 

Exponential is designed to operate for: 

argument < 75 (approximately) 
No guarantee is made for arguments which lie outside this range. 

LOGARITHM 

Naperian (or natural) logarithm is designed to operate with all 
positive arguments. Negative or zero arguments result in an error 
halt, at Loc. 4715 (Package 4) or 5115 (Package 3). Continuing 
from the halt will yield unpredictable results. Storing 5700 in place 
of the halt will cause LOG to return the argument when the argu- 
ment is negative or zero. Because of the methods used, some sig- 
nificance will be lost for arguments very close to + 1 .0. 
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MATH ROUTINES 

This chapter outlines the "use of the following routines: 

Single Precision 

Square Root (DEC-08-FMAA-D) 
Multiply (DEC-08-FMBA-D) 
Divide (DEC-08-FMCB-D) 

Double Precision 

Multiply (DEC-08-FMDA-D) 
Divide (DEC-08-FMEB-D) 
Sine (DEC-08-FMFC-D) 
Cosine (DEC-08-FMGB-D) 

In addition to the above, the following routines are also avail- 
able: 

Four- Word Floating Point Package (DEC-08-FMHA-D) 
Logical Subroutines (DEC-08-FMIA-D) 
Arithmetic Shift Subroutines (DEC-08-FMJA-D) 
Logical Shift Subroutines (DEC-08-FMKA-D) 

IMPLEMENTATION NOTES 

The following mathematical subroutines may be used, in gen- 
eral, by preparing a brief program identifying the routine symbol 
and allocating any registers required for inputting data and storing 
answers. The program is assembled along with the desired sub- 
routine. 



Tape Format 

Each of tLv. .^«,.xxj 
formats are as follows: 



ipe Format 

Each of the routines is supplied on an ANSCII-coded tape: 



Routine 

Square Root 

Multiply (Single Precision) 
Divide (Single Precision) 
Multiply ( Double" Precision ) 



Origin Setting 


Ending 


none 


$ 


none 


$ 


none 


PAUSE 


\ none (see Note) 


$ 
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Routine Origin Setting Ending 

Divide (Double Precision) none PAUSE 

Sine *400 PAUSE 

Cosine *1000 $ 

NOTE 

The Sine routine calls the Multiply rou- 
tine (double nrecision) and assumes that it 
has been loaded starting at location 0200. 
If Multiply is loaded elsewhere the pointers 

to it on rsnap 1 of tl->p ^inp rontini* mnct Vx:^ 

changed. '^ 

If a tape ending with a PAUSE pseudo-operator is to be as- 
sembled alone, it must be followed by a tape containing a dollar 
sign only. 

Signs 

The multiply and divide routines assign signs to products and 
dividends algebraically. 

In the divide routines, remainders are ^iven the si^^n of the 

External Calls 

The sine routine makes use of the multiply routine (double 
precision). The multiply routine must be in core when the sine 
routine is used, or must be assembled with the sine routine in user 
programs. 

The cosine routine makes use of the sine routine. Both the sine 
and multiply (double precision) routines must be in core when 
cosine is used, or must be assembled with the cosine routine in 
user programs. 

Program Control 

When a routine has been executed program control returns to 
the next sequential location to the last argument following a JMS 
or JMS I instruction. 

As an example, in the Divide routine (single precision: see 

xaui<^ i.\j-xj wOiiuui icLuiiib Lu J ivio 1 -r J. 

If no arguments follow the jump instruction, as in the square 

root rr*1ltinp r'/^ntrr^! rAtm-mc f rv +1-»o tn*-)^^-\ i t^cf r-Tir^fi^« ! 1 
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Errors 

The Divide routines, both single and double precision, make 
certain error checks and return identical codes in the link and 
accumulator. 

Errors for which checks are made are zero divisor, quotient over- 
jflow and fractional quotient. The double precision routine checks, 
additionally, for non-identical signs in the dividend. 

Error codes are as follows: 



Error 


Link 


Accumulator 


Zero Divisor 


1 


7777 


Quotient Overflow 


1 


0000 


Fractional Quotient 


1 


7776 


Non-identical signs 
in dividend (double 
Precision only) 


1 


5777 
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I'able 16-1. Mathematical Routines 



I— - 

O 

1 

CO 



SINGLE PRECISION 



Name 



Mnemonic 



Calling 
Sequence 



Arguments Limits 



Square 
Root 

Size; 27* 



Multiply 
Size: 54 



Divide 
Size: 130 



Sign 



Multiply 
Size: 175 



SQRT 



MULT 



DIVIDE 



TAD addressX 
J MS I SQRTP 



K. 'Y"x'"¥i umber] Q^-^-^2'ia|' ( Abso 
■'■f I for root lute 



extrac- 
tion 



value) 



HLT 
SQRTP T, SQRT 

X, 0000 



X, 0000 



TAD addressX 
JMS MULT 
arj!umcnlY 



TAD addressX 
JMS I DIVDP 
arj!umcnt (Y) 
argument (Z) 



X, Multi- 
plier 
Y, Multi- 

^plieand 
"xToTvid 



:t2047j,) BitO 
lof AC 

::t2047,„ 'JMS-Hl 
I bit 



i'idend 
high order 
Y. Dividend 
low order 
Z. Divisor 



: 2^:t- J 



:2047, 



Bit of 
high order 
word 

Bit of 
JMS-f2 



HLT 
DIVDP, DIVIDE 
X, 0000 






Location & 
Result Accuracy 



Sign 



Closest 
root 



6 bits I Assumed 



RemainderSQRI: 12 bits Assumed ^f 



Product I AC 



10 bits! AC bits 
I and 1 
MPl : 12 bits! each con- 
I tain sign 



Quotient, AC; U bitsi AC bit 0- 



Remainder HDIVND: U I HDIVND 

■ bits bit 



DOUBLE PRECISION 



DMUL 



JMS I DMULTP X. Multi- 
addressX I plicand 

addrcssY | Y. Multi- 

plier 



±2^ 



I 



HLT 



Bit of 
JMS-1 
Bit of 

JMS-t-2 



X, 0000 
0000 

Y, 0000 
0000 

DMUL1P, 



DMUL 



1. 



Product I 



AC?: 


10 bits 


AC bits 


B: 


12 bits 


and 1 


C; 


12 bits 


each con- 


D: 


12 bits 


tain sign 



*Core space requirement (octal) 



Table 16-1. Mathematical Routines (Coiit.) 

DOUBLE PRECISION 



0\ 
1 



Nanje 


Calling 
Mnenuinic Sequence 


Arguments 


Location & 
Limits Sign Result Accuracv Sien 


Divide 
Size: 307' 


DUBDIV 


- TAD addressX 


X. Dividend 


±2''-l 


Bit of 


1 Quotient 


AC: 11 bits lAC bit 




IMS 1 DDIV 

addrcssY 


Y. Divisor 




high order 
word 


DIVND+4: 12 
bits 1 






• 




' 


RemaindeiDIVND+1: IIDIVND+I 














bits bit 






HL'J 














X, ..| 1 










1 






0000 


















0000 


















0000 
















0000 


















Y, 0000 


















0000 


















DDIV, DUBDIV 








1 


Sine 
Si/c: 337 


DSIN 


IMS I SINP 
addressX 


X. Radian 


-4<X<4| 


Bit of 


Sine 


AC: 12 bits 


Assumed -)- 




value of 
angle 




high order 




(implied bi- 


(angle 






* 




word 


nary point adjusted | 
















after bit 0) 


to first 






HLT 
SINP, DSIN 










ARG+1: 12 
bits 


quadrant) 






X, 1000 








1 






0000 










Cosine 
Size: 100 


DCOS 


IMS I DCOSP 

addressX 


X. Radian 
value of 


-4<X<4 Bit of 

high order 


Cosine (See above. 
Cosine uses 


(See 
above) 






• 


angle 


word 




same regis- 
ter as 








HLT 








Sine) 








DCOSP, DCOS 






1 






X, lOOO 










^ 


0000 











*Corc space requirement (octal) 
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Appendices 



Appendix A2 

Permanent Symbol TaWe 
for PDP-8 Assemblers 



PAL HI, 4K PAL-D, 8K PAL-D, and SK SABR 

The following are the most commonly used elements of the 
PDP-8 instruction set. For that reason they are found in the per- 
manent symbol table within the assemblers. These instructions 
are already defined within the computer. For additional informa- 
tion on these instructions and for a description of the symbols 
used when programming other, optional, I/O devices, see the 
7970 Small Computer Handbook, available from the DEC Pro- 
gram Library. 

MACRO 

MACRO has, at present, 174 symbols in its permanent symbol 
table. Because many of these instructions are not used by every 
user and take up valuable space, it is recommended that you delete 
the present MACRO permanent symbol table with the EXPUNGE 
pseudo-op and recreate it to correspond with the PAL III and 
PAL-D permanent symbol table (below) as explained under the 
FIXTAB pseudo-op, including in the new table any additional 
instructions that are needed for optional equipment. 

INSTRUCTION CODES 



Mnemonic 


Code 


Operation 


Event Time 


Memory Reference Instructions 




AND 


0000 


Logical AND 




TAD 


1000 


Two's complement add 




ISZ 


2000 


Increment and skip if zero 




INCi 


2000 


Nonskip ISZ 




DCA 


3000 


Deposit and clear AC 




JMS 


4000 


Jump to subroutine 




JMP 


5000 


Jump 





1 Not present in PAL III, 4K PAL-D or 8K PAL-D. 

A2-1 



Mnemonic 


Code 


Operation 


' Event Time 


Floating-Point Instructions^ 




FEXT 


0000 


Floating exit 




FADD 


1000 


Floating add 




FSUB 


2000 


Floating subtraction 


-- 


FMPY 


3000 


Floating multiply 




FDIV 


4000 


Floating divide 




FGET 


5000 


Floating get 




EPUT 


6000 


Floating put 




FNOR 


7000 


Floating normalize 





Group 1 Operate Microinstructions 



OPR3 


7000 


Same as NOP 




NOP 


7000 


No operation 




lAC 


7001 


Increment AC 


1 

^ 


RAL 


7004 


Rotate AC and link left one 


4 


RTL 


7006 


Rotate AC and link left two 


4 


RAR 


7010 


Rotate AC and link right one 


4 


RIR 


7012 


Rotate AC and link right two 


4 


CML 


7020 


Complement link 


2 


CMA 


7040 


Complement AC 


2 


CLL 


7100 


Clear link 


1 


CLA 


7200 


Clear AC 


1 



Group 2 Operate Microinstructions 



HLT 


7402 


OSR 


7404 


SKP 


7410 


SNL 


7420 


SZL 


7430 


SZA 


7440 


SNA 


7450 


SMA 


7500 


SPA 


7510 


CIA 




Combined ' 


Dperate 




7041 


S'i'L 


7120 


GLK4 


7204 


STA 


7240 


LAS 


7604 



Halts the computer 
Inclusive OR SR with AC 
Skip unconditionally 
Skip on nonzero link 
Skip on zero link 
Skip on zero AC 
Skip on nonzero AC 
Skip on minus AC 
Skip on positive AC (zero is 
positive) 

icroinstructions 
Complement and increment AC 

Cot liriV tn 1 

Get link (put link in AC, bit 1 1) 
Set AC to -1 



3 
3 
1 
1 

1 
1 
1 
1 



2,3 
1 ? 



1 



2 Mot "resent in 4K PAL-D or 8K SABR. 



T TTX 



C%Tr O A T*T 



^ jNOi preseni m r/\ju iii or orv o/\dxv. 
^ Not present in 8K SABR. 



AO„0 



Mnemonic Code 
Program Interrupt 



IOT5 

ION 

lOF 



6000 
6001 
6002 



Operation 



Turn interrupt processor on 
Disable interrupt processor 



Event Time 



Keyboard/ Reader 

KSF 6031 

KCC 6032 

KRS 6034 

KRB 6036 



Skip on keyboard flag 
Clear keyboard flag and AC 
Read keyboard buffer (static) 
Read keyboard buffer (dynamic) 



Teleprinter/ Punch 

TSF 6041 

TCF 6042 

TPC 6044 

TLS 6046 



Skip on teleprinter flag 
Clear teleprinter flag 
Load teleprinter and print 
Load teleprinter sequence 



High Speed Reader 



RSF 
RRB 

RFC 



6011 
6012 

6014 



Skip on reader flag 

Read reader buffer and clear 

reader flag 
Reader fetch character 



High Speed Punch 



PSF 
PCF 
PPC 


6021 
6022 
6024 


Skip on punch flag 
Clear on punch flag 
Load punch buffer and punch 
character 


PLS 


6026 


Load punch buffer sequence 



DECtape Transport Type TU55 and DECtape Control Type TCOl^ 

DTRA 6761 Contents of status register 

is ORed into AC bits 0-9 
DTCA 6762 Clear status register A, all 

flags undisturbed 



5 Not present in PAL III or 8K SABR. 

6 Not present in 8K SABR. 
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Mnemonic Code 



DTXA 



6764 



DTLA' 


6766 


DTSF 


6771 


DTRB 


6772 


DTLB 


6774 


Disk File and Control, 


DCMA 


6601 



DMAR 6603 



DMAW 6605 



DCEA 6611 



DSAC 6612 

DEAL 6615 



Operation Event Time 

Status register A loaded by 

exclusive OR from AC. If 

AC bit 4 0=0, clear error 

flags; if AC bit 11=0, DEC- 

tape control flag is cleared 
Combination of DTCA and 

DTXA . 
Skip if error flag is 1 or if 

DECtape control flag is 1 
Contents of status register B is 

ORed into AC 
Memory field portion of status 

register B loaded from AC 

bits 6-8 

TypeDF32S 

Clear disk memory request 1 

and interrupt flags 
Load disk from AC, clear 

AC read into core, clear 

interrupt flag 
Load disk from AC, write 



DEAC 

DFSE 

DFSC 
DMAC 



6616 

6621 

6622 
6626 



onto disk from core, clear 

Clear disk extended address 

and memory address extension 

register 
Skip if address confirmed 

flag = 1 
Clear disk extended address 

and memory address extension 

register and load same from 

AC ' 
Clear AC, load AC from disk 

extended address register, 

skip if address confirmed 

flag=l 
Skip if parity error, data 

request late, or write lock 

switch fla*^ ^= '^no error) 
Skip if completion flag = 1 

(date transfer completed) 
Clear AC, load AC from disk 

memorv address register 



1,2 



1,3 



1,3 



2,3 



Z. -i 



7 Not present in 4K PAL-D, 8K PAL-D, or 8K SABR. 

8 Not present in 8K SABR. 
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Mnemonic Code bperation Event Time 

Memory Extension Control, Type 1839 

CDF NO 6201 Change to data field N 

CIF NO 6202 Change to instruction field N 

RDF 6214 Read data field 

RIF 6224 Read instruction field 

RIB 6234 Read interrupt buffer 

RMF 6244 Restore memory field 

Memory Parity Type MP8/I (MP8/L)^o 

SMP 6101 Skip if memory parity error 

flag = 
CMP 6104 Clear memory parity error 

flag 



i» Not present in 8K SABR. 

»' Not present in 4K PAL-D, 8K PAL-D, or 8K SABR. 
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The following is a list of the 4K and 8K assembler pseudo-ops. 
The first section consists of those pseudo-ops which have counter- 
parts in the other assemblers. Below the blank space are the vari- 
ous pseudo-ops individual to the particular assembler. 



PAL III 


MACRO 
DECIMAL 


4K PAL-D 

TTXT-'^^T-fc r A T 


8K PAL-D 

X-\T-'/^yfc jT A T 


8K SABR 


DECIMAL 


T-M3/^T\4- A T 
1^ J^V^X rVXJ-i.1-, 


OCTAL 


OCTAL 


OCTAL 


OCTAL 


OCTAL 


FIELD 


FIELD 


FIELD 


FIELD 




PAUSE 


PAUSE 


PAUSE 


PAUSE 


PAUSE 


I 


I 


I 


I 


I 


Z 


Z 


Z 


Z 




$ 


-$ 


$ 


$ 


$ 


EXPUNGE 


EXPUNGE 


EXPUNGE 


EXPUNGE 




FDCTAB 


FIXTAB 


FIXTAB 


FIXTAB 






PAGE 


PAGE 


PAGE 


PAGE 


FIXMRI 


DEFINE 


XLIST 


XLIST 


ABSYM 




DUBL 


TEXT 


IFDEF 


ARG 




FLTG 




iFZERO 


BLOCK 




JtiXi 




ENFUNCH 

NOfUNCH 

ZBLOCK 

EJECT 

TEXT 


CALL 

COMMN 

CPAGE 

DUMMY 

EAP 

END 

ENTRY 

FORTR 

IF 

LAP 

OPDEF 

REORG 

RETRN 

SKPDEF 



NOTE: The symbols ACH, ACM, and ACL are also present in 
the perm.anent sym.bol table for 8K SABR. For details, see Chap- 



ter 



i»+ , 






4K PAL-D lOT MICROINSTRUCTIONS 
FOR TSS/8 MONITOR 

The following instructions are permanent symbols in addition 
to those already mentioned, and are unique to 4K PAL-D on 
TSS/8. 



Mnemonic Code 
Keyboard/ Reader 

KSB 6400 

SBC 6401 

KSR 6030 

Teleprinter/ Punch 
SAS 6040 



Operation 

Set keyboard break 
Set buffer control flags 
Read keyboard string 



Send a string 



Event Time 



High-Speed Reader (Type PC02) 

RRS 6010 Read reader string 

High-Speed Punch (Type PC03) 
PST 6020 Punch string 



Program 


Control 




URT 


6411 


User run time 


TOD 


6412 


Time of day 


RCR ' 


6413 


Return clock rate 


DATE 


6414 


Date 


SYN 


6415 


Quantum synchronization 


SIM 


6416 


Set timer 


TSS 


6420 


Skip on TSS/8 


USE 


6421 


User 


SSW 


6430 


Set Switch Register 


CKS - 


6200 


Check status 


ASD 


6440 


Assign device 


REL 


6442 


Release device 


DUP 


6402 


Duplex 


CON 


6422 


Console 



A2-7 



Mnemonic 


Code 


Operation 


Event Time 


File Control 








REN 


6600 


Rename file 




OPEN 


6601 


Open file 




CLOS 


6602 


Close file 




RFILE 


6603 


Read file 




PROT 


6604 


Protect file 




WFILE 


6605 


Write file 




CRF 


6610 


Create file 




EXT 


6611 


Extend file 




RED 


6612 


Reduce file 




FINF 


6613 


File information 




SIZE 


6614- 


Segment size 




SEGS 


6406 


Segment count 




ACi 


6617 


Account number 




WHO 


6616 


Who 





PAL III EXTENDED SYMBOLS TAPE 

The PAL III Extended Symbols Tape, available from the Pro- 
gram Library, contains symbols for the following hardware options 
(which are further described in the 1970 Small Computer Hand- 

u — .7^^ 

Extended Arithmetic Element, Type KE8/L KE8/L 
Power Fail Detection and Restart, Type KP8/I, KP8/L 
Disk File. Tvoe RS08 and Control. Tvoe RF08 
Card Reader and Control Tvne CR8/T CR8/L 
General Purpose Converter and Multiplexor Control, Type 

AFOIA 
Guarded Scanning Digital Voltmeter, Type AF04A 
Real Time Clocks, Type KW8/I, KW8/L 
Storage Tube Display Control, Type KV8/I, KV8/L 
Incremental Magnetic Tape Controller, Type TR02 
Oscilloscope Display, Type VC8/T, VC8/L 
Incremental Plotter and Control, Type VP8/I, VP8/L 
Automatic Magnetic Tape Control, Type TC58 
Time Sharing Hardware Modification, Type KT8/I 

O /"■H 1 O 1_ J TT_1J /-1_._i__1 T^--^ - A /—irvf A 



Digital to Analog Converter, Type AAOl A, AA0SC/AA07 

Svnr.hrnnnnQ 'KAnrli^m Tntf 

Line Printer, Type LP08 



Svnr.hrnnnnQ 'KAnrli^m Tntp>rfar'p Ti/r«=> FlPfll A A 
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ANSCn-1 Character Set 



Appendix B2 

character Codes 





8-Bit 


6-Bit 




8-Bit 


6-Bit 


Character 


Octal 


Octal 


Character 


Octal 


Octal 


A 


301 


01 


j 


241 


41 


B 


302 


02 


»» 


242 


42 


C 


303 


03 


# 


243 


43 


D 


304 


04 


$ 


244 


44 


E 


305 


05 


% 


245 


45 


F 


306 


06 


& 


246 


46 


G 


307 


07 


■j' 


247 


47 


H 


310 


10 


( 


250 


50 


I 


311 


11 


) 


251 


51 


J 


312 


12 


* 


252 


52 


K 


313 


13 


+ 


253 


53 


L 


314 


14 


* 


254 


54 


M 


315 


15 


. 


255 


55 


N- 


316 


16 


. 


256 


56 





317 


17 


/ 


257 


57 


P 


320 


20 


: 


272 


72 


Q 


321 


21 


> 


273 


73 


R 


322 


22 


< 


274 


74 


S 


323 


23 


rr 


275 


75 


T 


324 


24 


> 


276 


76 


U 


325 


25 . 


? 


277 


77 


V 


326 


26 


(a) 


300 




W 


327 


27 


[ 


333 


33 


X 


330 


30 


\ 


334 


34 


Y 


331 


31 


] 


335 


35 


Z 


332 


32 


T 


336 


36 





260 


60 




337 


37 


1 


261 


61 


Leader/Trailer i 


200 




2 


262 


62 


LINE FEED i 


212 




3 


263 


63 


Carriage RETURN 


215 


! 


4 


264 


64 


SPACE 


240 


40 


5 


265 


65 


RUBOUT 


377 




6 


266 


66 


Blank 1 


000 




7 


267 


67 


BELL 


207 




8 


270 


70 


TAB 


211 




9 


271 


71 


FORM t 


214 





1 An abbreviation for American National Standard Code for Information 
Interchange. 
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Appendix C2 

Loading Procedures 



Initializing the System 

Before using the computer system, it is good practice to initialize 
all units. To initialize the system, ensure that all switches and con- 
trols are as specified below. 

1 . Main power cord is properly plugged in. 

2. Teletype is turned OFF. 

3. Low-speed punch is OFF. 

4. Low-speed reader is set to FREE. 

5. Computer POWER key is ON. 

6. PANEL LOCK is unlocked. 

7. Console switches are set to 

DF = 000 IF = 000 SR = 0000 
SING STEP and SING INST are not set. 

8. High-speed punch is OFF. 

9. DECtape REMOTE lamps OFF. 

The system is now4nitialized and ready for your use. 

Loaders 

READ-IN MODE (RIM) LOADER 

When a computer in the PDP-8 family is first received, it is noth- 
ing more than a piece of hardware; its core memory is completely 
demagnetized. The computer "knows" absolutely nothing, not even 
how to receive input. However, the programmer knows from 
Chapter 4 that he can manually load data directly into core using 
the console switches. 

The RIM Loader is the very first program loaded into the com- 
puter, and it is loaded by the programmer using the console 

C2-1 



switches. The RIM Loader instructs the computer to receive and 
store, in core, data punched on paper tape in RIM coded format 
(see Chapter 4, Vol. 1). (RIM Loader is used to load the BIN 
Loader described below.) 

There are two RIM loader programs: one is used when the in- 
put is to be from the low-speed paper tape reader, and the other 
is used when input is to be from the high-speed paper tape reader. 
The locations and corresponding instructions for both loaders are 
listed in Table C2-1 . 

The procedure for loading (toggling) the RIM Loader into core 
is illustrated in Figure C2-1. 

Table C2-1, RIM Loader Programs 



Instruction 



Location Low-Speed Reader High-Speed Reader 

6014 
6011 
5357 
6016 
7106 



7756 


6032 


7757 


6031 


7760 


5357 


7761 


6036 


7762 


7106 


7763 


7006 


1 1 U-r 




7765 


'^'^'^7 

«>*/»-'/ 


7766 


7006 






7770 


5367 


7771 


6034 


7772 


7420 


7773 


3776 


7774 


3376 


7775 


5356 


1116 


0000 



7510 
5374 
7nn<^ 

* v v^ v^ 

^ni 1 

\J\J JL X. 

5367 
6016 

7420 
3776 
3376 
5357 
0000 



After RIM has been loaded, it is good programming practice to 
verify that all instructions were stored properly. This can be done 

shows how to correct an incorrectly stored instruction. 

When loaded, the RIM Loader occupies absolute locations 7756 
through 7776. 



Initialize 


3 
> 


Yes 






^^^ Using ^\ 

y^ Extended 


Set » 
DF= Desired Field 
I F = Desired Field 


^V. Memory 




Tno 






Set SR = 7756 












V 








Depress 
LOAD ADD 








Set SR = First 
Instruction 



I 



Depress DEP 



I 



Set SR=Next 
Instruction 



I 



Depress DEP 



* DECtope users should 
load RIM into field 0. 




RIM Is Loaded 



Figure C2-1. Loading the RIM Loader 
C2-3 



( 


Initialize 
1 





^^ Using ^s. 
y^ Extended ^n. 
^>s,^ Memory ^^ 


Yes 

^ 


Set 
or = Correct Field 
IF = Correct Field 


r 






Set SR '- 7756 












i Depress LOAD ADD 1 



Set SR=Correct 
Instruction 



Depress DEP 



Figure C2-2. Checking the RIM Loader 

BINARY (BIN) LOADER 

The BIN Loader is a short utility program which, when in core, 
instructs the computer to read binary-coded data punched on paper 
tape and store it in core memory. BIN is used primarily to load the 
programs furnished in the software package (excluding the loaders 
and certain subroutines) and the programmer's binary tapes. 

BIN is furnished to the programmer on punched paper tape in 






-11 I" 

iierciC 



x%.iivi niList OS m core Deior^ uiin 



can be loaded. Figure C2-3 illustrates the steps necessary to prop- 



frlv Innrl RTN 









speed reader) must be that which was selected when loading RIM. 



UZ-4 



G^< 



Set * 
DF = Correct Field 
IF= Correct Field 



High-Speed Reader 



Put BIN Tape 
In HSR 



J 




-| See Figi 



ures 02-1,02-2 



Low - Speed Reader 



Turn TTY To LINE 



Depress START 




HSR Stops At 
End Of Tape 



Put LSR To FREE 



I 



Put BIN Tape 
In LSR 



Put LSR To START 



Depress START 




Figure C2-3. Loading the BIN Loader 
C2-5 



\\n ^i-^-.-^A \r, f^n-ro TITM rf«cirlf»c nn thp Isict naffp r»f rorfi_ OC- 

cupying absolute locations 7625 through 7752 and 7777. 

BIN was purposely placed on the last page of core so that it 
would always be available for use— the programs in DEC's soft- 
ware package do not use the last page. of core (excluding the Disk 
Monitor, discussed in Chapter 7 Vol. 1). The programmer must 
be aware that if he writes a program which uses the last page of 
core, BIN will be wiped out when that program runs on the com- 
«,i<-o.T- AX/K«»n thic Vinrtnpn« thp nroirrammer must load RIM and 
then BIN before he can load another binary tape. 

Figure C2-4 illustrates the procedure for loading binary tapes 
into core. 



L.Z-0 



GM 



Lood BIN 



}see Figure C2-3 




Set 
DF= Desired Field 
IF = Field Of BIN 



Set SR=7777 



Depress LOAD ADO 



Set SR= 3777 




High-Speed Reader ^y^ Which ^s^ Low -Speed Reoder 
Reoder 

7 



Turn TTY To LINE 



Put Tope In HSR 



Put Tope In LSR 



Set LSR To START 



G> 



9 



Depress START 




Dcivess CONT 



Figure C2-4. Loading A Binary Tape Using BIN 
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Index/Glossary 



Absolute address: A binary number 

that is permanently assigned as 

the address of a storage location. 

Absolute value function, FOCAL, 

11-25 
ABSYM Pseudo-pp, SABR, 14-23 
Accumulator: A 12-bit register in 
which the result of an operation 
is formed; abbreviation: AC. 
Accumulator, floating, 16-17 
Accuracy, Increased FOCAL, 11-34 
Addition, 16-17 

Additional FOCAL Segments, 11-34 
Address: A label, name, or number 
which designates a location where 
information is stored. 

Address assignments 
4K Assemblers, 13-21 
8K Assemblers, 14-37 
Algorithm: A prescribed set of well- 
defined rules or processes for the 
solution of a problem in a finite 
number of steps. 
Algorithms, Floating-Point, 16-17 
Alphanumeric: Pertaining to a char- 
acter set that contains both letters 
and numerals, and usually other 
characters. 
Alphanumeric data, 15-22, 15-60 
Alphanumerics 
SABR, 14-11 
FOCAL, 11-29 
ALT MODE key 
BASIC, 12-50 
FOCAL, 11-17 
ANSCII character set, B2-1 
Arctangent, .16-21; FOCAL, 11-26 
ARG pseudo-op, SABR, 14-26 
Argument: 

1. A variable or constant which 
is given in the call of a sub- 
routine as information to it; 

2. A variable upon whose value 
the value of a function de- 
pends; 



3. The known reference factor 
necessary to find an item in 
a table or array (i.e., the in- 
dex). 
Arguments, passing 

SABR, 14-30 
Arithmetic expressions 
FORTRAN, 15-n 
FOCAL, 11-6 
Arithmetic operators 
BASIC, 12-12 
FOCAL, 11-74 
Arithmetic statements 

FORTRAN, 15-6, 15-8 

Arithmetic unit: The component of 

a computer where arithmetic and 

logical operations are performed. 

Array: A set or^list of elements, 

usually variables or data. 
Array storage 
FORTRAN, 15-54 
Array variables, 
FORTRAN, 15-11. 15-33, 15-53, 

15-54 
FOCAL, 11-14 
BASIC, 12-11 
ASCII: An abbreviation for Amer- 
ican Standard Code for Informa- 
tion Interchange. See ANSCII, 
A2-1. 
ASK statement, FOCAL, 11-17 

Assemble: To translate from a sym- 
bolic program to a binary pro- 
gram by substituting binary oper- 
ation codes for symbolic operation 
codes and absolute or relocatable 
addresses for symbolic addresses. 

Assembled binary code 
8K FORTRAN, 14-49 
SABR, 14-38 

Assembler: A program which trans- 
lates symbolic op-codes into ma- 
chine language and assigns mem- 
ory locations for • variables and 
constants. 

Assembler output, 4K ASSEM- 
BLERS. 13-33 
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SABR, 14-38 
Assemblers, PDP-8 

4K, 13-5 

8K, 14-5 

MACRO, 13-41 

PAL II!. 13-5 

4K PAL-D, 13-65 

8K PAL-D, 14-5 

8K SABR, 14-9 
Assembly 

Floating-Point Package, 16-11 

SABR, 14-47 
Auto-indexing: When an absolute 

addressed indirectly, the content 
cf that location is incremented by 
one, rewritten in that same loca- 
tion, and used as the effective ad- 
dress of the current instruction. 

Auto-indexing, 13-23 

Automatic paging mode, 
SABR, 14-33 

Auxiliary storage: Storage that sup- 
plements core memory such as 
disk or DECtape. 

B 

Background processing: The auto- 
matic execution of a low priority 
computer program when higher 
priority programs are not using 
the system resources. 

Base address: A given address from 

> I i.ii.t^a.j. CilJi C4COV_/i(.l Lt/ £l\aVJl WOO lO 

derived by combination with a 
relative address. Synonymous with 
address constant. 
BASIC 

see Table of Contents, 12-3 

error messages, 12-60 

example programs, 12-7, 12-21. 
12-25, 12-31, 12-40 

summary of Edit and Control com- 
mands, 12-58 

summary of functions, 12-58 

summary of statements, 12-56 

BASIC commands 

ALT MODE ks'-' 12-50 

BYE, 12-50 

CATALOG, 12-49 

COMPILE, 12-54 

DELETE, 12-49 



EDIT, 12-53 
LIST, 12-48 
NEW, 12-49 
OLD. 12-49 
REPLACE, 12-48 
RUN. 12-46 
SAVE, 12-47 
UNSAVE, 12-48 
BASIC statements 
DATA, 12-23 
DEF, 12-19 
DIM, 12-33 
END, 12-41 
FOR, 12-34 
GOSUB. 12-39 
GOTO, 12-37 
IF-GOTO, 12-38 
IF-THEN, 12-38 
INPUT, 12-25 
LET, 12-11 
NEXT, -12-35 
PRINT, 12-27 
RANDOMIZE, 12-17 
READ, 12-22 

DC\/i 1 T O 

RETURN, 12-40 
STOP, 12-41 ' 
TAB function, 12-30 
Beginning programming 
BASIC, 12-5 
FOCAL, 11-5 

Binary: Pertaining to the number 
system with a radix of two. 

Binary code: A code that makes use 
of exactly two distinct characters, 
and 1. Same as object code. 

Binary Loader,C2-i :'-OCAL, 11-42 

Binary output 
FORTRAN, 14-38, 14-49 

Bit: A binary digit In PDP-8 com- 
puters each word is composed of 
12 bits. 

Blank lines, 8K ASSEMBLERS, 

Blanks in output 
FORTRAN, 15-25 

Block: A set of consecutive machine 
words, characters, or diaits han- 
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died as a unit, particularly* with 
reference to I/O. 

BLOCK pseudo-op, SABR, 14-25 
Bootstrap: A technique or device 
designed to bring itself into a de- 
sired state by means of its own 
action, e.g., a routine whose first 
few instructions are sufficient to 
bring the rest of itself into the 
computer from an input device. 

Branch: A point in a routine where 
one of two or more choices is 
made under control of the routine. 

Bug: A mistake in the design or im- 
plementation of a program result- 
ing in erroneous results." 

Byte: A group of binary digits usu- 
ally operated upon as a unit. 



C 

Call: To transfer control to a speci- 
fied routine. 

CALL pseudo-op, SABR, 14-26 

Calling sequence: A specified set of 
instructions and data necessary 
to set up and call a given routine. 

CALL statement, 
FORTRAN, 15-29, 15-38 

Carriage return: The Teletype opera- 
tion that causes the next character 
to be printed at the left margin. 
A non-printing character. 

Carriage return/ line feed: Two 
Teletype functions often done to- 
gether; rolls paper up one line 
and moves the printing head to 
the left margin. 

CDF current data field, SABR, 
. 14-40 

CDFSKP Linkage routine, 14-34 
CDISK routine, SABR, 14-82 

FORTRAN, 15-31 
CDZSKP Linkage routine, 14-35 
Central processing unit: The unit of 
a computing system that includes 
the circuits controlling the inter- 
pretation and execution of instruc- 
tions — the computer proper, ex- 
cluding I/O and other peripheral 
devices. 

Chaining, SABR, 14-69 
Character: A single letter, numeral. 



or symbol used to represent in- 
formation. 

Character set 
ANSCII, A2-1 
FORTRAN, 15-8 
MACRO, 1.3-44 
PAL III, 13-7. 13-8 
8K PAL-D, 14-5 
SABR, 14-11 

Clear: To erase the contents of a 
storage location by replacing the 
contents, normally with zeros or 
spaces; to set to zero. 

Cline, FOCAL, 11-34 

Coding: To write instructions for a 
computer using symbols meaning- 
ful to the computer, or to an 
assembler, compiler, or other lan- 
guage processor. 

Coding practices 
4K and 8K Assemblers, 13-11 

Command: A user order to a com- 
puter system. Usually given 
through a Teletype keyboard. 

Command decoder: That part of a 
computer system which interprets 
user commands. A.lso called com- 
mand-string decoder. 

Commands, Floating-Point, 16-8, 
16-17 

Comment statements 

4K Assemblers, 13-11 

BASIC (REM), 12-9 

FORTRAN, 15-7 

SABR, 14-16 

FOCAL, 11-13 
COMMN pseudo-op, SABR, 14-24 
COMMON statement 

FORTRAN, 15-33, 15-37 
COMMON storage 

SABR, 14-24 

FORTRAN, 15-56 

Conipatability: The ability of an 
instruction or source language to 
be used on more than one com- 
puter. 

Compile: To produce a binary-coded 
program from a program written 
in source (symbolic) language, by 
selecting appropriate subroutines 
from a subroutine library, as di- 
rected by the instructions or other 
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symDois ot tne source program. 
The linkage is supplied for com- 
bining the subroutines into a 
workable program, and the sub- 
routines and linkage are translated 
into binary code. 

COMPILE command 
BASIC, 12-54 

Compiler: A program which trans- 
lates statements and formulas 
written in a source language into 

o mQ/^liir»^ ]or»ono<T(=> T>rr\crrQrv* ^ cr 

a FORTRAN Compiler. Usually 
generates more than one machine 
instruction for each statement. 
Compiler error rriessages 
FORTRAN, 15-41 



r 
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BASIC, 12-54 
Complement (one's): To replace all 

bits in a binary word with 1 bits 

and vice versa. 
Complement (two's): To form the 

one's complement and add 1. 
Computed GO TO. FORTRAN. 15- 

16 
Conditional assembly: Assembly of 

certain parts of a symbolic source 

program only if certain conditions 

have been met. 

Conditional skip: Depending upon 
whether a condition within the 
program is met, control may 
transfer to another point in the 
"nrQargrn Ssc O^srats mlcro in- 
structions. 

Conditional transfer 
BASIC, 12-38 

Console: Usually the external front 
side of a device where controls 
and indicators are available for 
manual operation of the device. 

Constant: Numeric data used but 
not changed by the program. 

Constants 

ANSCII. 14-16 

FORTRAN, 15-8, 15-9, 15-53 

Numeric, 14-15 

O A T>rj 1 ^ 1 c 

Continuation lines 

CONTINUE statement 
FORTRAN, 15-18 



controller, output, lo-o 
Control statements 

FORTRAN, 15-6, 15-16 
Conversational languages 

BASIC, 12-5 

FOCAL, 11-5 
Conversational program: A program 
which interacts dynamically with 
on-line users, FOCAL, 11-5 
Conversion, decimal-to-binary, 16-11 

T7: 3 *.^ r?l^-*:^^ i z: id 

l'lACU-LU-1 lUtlLlll!^, lu-i;' 

Floating-to-Fixed, 16-19 
Conversion, Numeric, SABR, 14-77 
Convert: 

1. To change numerical data from 
one radix to another. 

2. To transfer data from one re- 
corded format to another. 

Core availability, SABR, 
fields, 14-53 

Linking Loader option, 14-52 
Core memory: The main high-speed 
storage of a computer in which 
binary data is represented switch- 
ing polarity of magnetic cores. 
Correction of errors 
BASIC, 12-42 
FOCAL, 11-9 
Cosine, Fi. Pt. Package, 16-21, 16- 

29; FOCAL, 11-27 
Count: The successive increase or 
decrease of a cumulative total of 

Liic iiuiiiuci yjL liiiico ail v^vwiit \j\^~ 

curs. 
Counter: A register or storage loca- 
tion (variable) used to represent 
the number of occurrences of an 
operation (see Loop). 

CPAGE pseudo-op, SABR, 14-21 

Current address indicator 
4K Assemblers, 13-22 

Current location counter: A counter 
kept by an assembler to determine 
the address assigned an instruction 
or constant being assembled. 4K 
Assemblers, 13-19, 13-21. 

Current page or page ,0 bit: Bit 4 of 
a PDP-8 memory reference in- 
struction. 

Cycle time: The length of time it 
takes the computer to reference 
one word of memory. 
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D 

Data: A general term used to denote 
any or all facts, numbers, letters, 
and symbols. It connotes basic 
elements of information which can 
be processed or produced by a 
computer. 

Data break: A facility which permits 
I/O transfers to occur on a cycle- 
stealing basis without disturbing 
program execution. 

Data generating, SABR, 14-25 

DATA statement 
BASIC, 12-23 

Data output, FOCAL, 11-7 

Data transmission statements 
FORTRAN, 15-26 

Debug: To detect, locate, and cor- 
rect mistakes in a program. 

DECIMAL pseudo-op, 4K Assem- 
blers 13-28 
SABR, 14-20 

DECtape I/O 
FORTRAN, 15-28 
SABR, 14-80 

DECtape instructions, A2-3 

DEF statement, BASIC, 12-19 

Deleting a command 
BASIC, 12-50 

Deleting a program on Disk 
BASIC, 12-48 

Delimiter: A character that sep- 
arates, terminates, and organizes 
elements of a statement or pro- 
gram. 

Demonstration programs, SABR, 
14-84 FOCAL, 11-45 

Device designator 
FORTRAN, 15-28 

Device selection code: A 6-bit num- 
ber which is used to specify the 
device referred to by an lOT in- 
struction. 

Diagnostic: Pertaining to the detec- 
tion and isolation of a malfunc- 
tion or mistake. 

Diagnostics, see Error Messages. 

Digit: A character used to represent 
one of the non-negative integers 
smaller than the radix, e.g., in 
binary notation, either or 1. 

Digital computer: A device that op- 



erates on discrete data, performing 
sequences of arithmetic and log- 
ical operations on this data. 

DIM statement, BASIC, 12-33 

DIMENSION statement 
FORTRAN, 15-33, 15-37 

Direct address: An address that spec- 
ifies the location of an instruction 
operand. 

Direct Assignment statement. As- 
semblers, 13-16 
Directory device: A device (such as 
a disk) which is partitioned by 
software into several distinct files. 
A directory of these files (e.g., an 
index) is maintained on the device 
to locate the individual files. 
Disk instructions, A2-4 
DISKIN, FOCAL, 11-45 
Disk I/O 
FORTRAN, 15-30 
SABR, 14-82 
Disk Linking Loader, 14-56 
normal loading, 14-62 
overlay loading, 14-64, 14-67 
error messages, 14-73 
Disk Monitor System 
FORTRAN, 15-40 
4K PAL-D, 13-68 
FOCAL, 8K, 11-49 
Division, floating-point, 16-18 
DO sta'tement, 
FORTRAN, 15-17 
FOCAL, 11-19, 11-12 
Dollar sign ($), 13-30 
Double precision: Pertaining to the 
use of two computer words to rep- 
resent one number. In the PDP-8 
a double precision result is stored 
in 24 bits. See Chapter 16. 

Double precision integers, 13-41 
Downtime: The time interval during 

which a device is inoperative. 
Dummy: Used as an adjective to in- 
dicate an artificial address, in- 
struction, or record of information 
inserted solely to fulfill prescribed 
conditions, as in a "dummy" vari- 
able. E.g., in the BASIC function 
RND(x). where x has no signif- 
icance. See also DUMMY pseudo- 
op in 8K SABR. 
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Dummy 
arguments, 15-18 
statement, 15-36 
variables, 14-28 
DUMMY pseudo-op, SABR, 14-28 
Dump: To copy the contents of all 
or part of core memory, usually 
onto an external storage medium. 
DUMSUB Linkage routine, 14-36 



e, raising to power, 16-21 
EAP pseudo-op, SABR, 14-20 

Page escapes, 14-33 
EDIT command 

BASIC, 12-53 
Editing command 

BASIC, 12-53 
Editing phase 

BASIC, 12-47 
Editor, see Symbolic Editor 
Effective address: The address ac- 
tually used in the execution of a 
computer instruction. 
8K. FOCAL, i 1-34: loading proce- 
dures. 11-49 
End of Program, 13-30 
End of Tape, 13-30 
END pseudo-op, SABR, 14-19 
szvsu siaicmeiu 

CrvDTD A XT 1 < in 

A \^ AV i AX.i Ai^, JL ^ ■ ^\J 

Entry points, floating-point, 

input routine, 16-12 

interpreter, 16-9 

listed, 16-16 

negate subroutine, 16-15 

output routine, 16-14 
ENTRY pseudo-op, SABR, 14-28 
Equal sign, explanation of, 12-11 
Equate statements, 4K Assemblers, 

13-16 
Equipment requirements. FOCAL, 

n-53 
EQUIVALENCE .statement, 

FORTRAN, 15-34, 15-37 
Equivalent symbols^ SABR, 14-13 
r:,is./\oc, couHuauu, rvjv^rvi^, ii-iu 



Erasing a program m core 

BASIC, 12-43 
Error flag, floating-point, 16-19 
Error correction, FOCAL, 11-15, 

11-21 
Error messages 

BASIC, 12-42 

Disk Linking Loader, 14-61, 14-65 

Floating Point, 16-11, 16-19, 16-27 

FORTRAN, 15-41 

Library programs, 14-73 

Linking Loader, 14-72 

MACP.O, 13-61 

PAL III, 13-38 

AV DAT T^ t 1 TA 
-frv A r^jLj-j-', A_»-/vy 

SABR, 14-71 
FOCAL, 11-15, 11-5 
Escapes, page, 14-33 
Estimating program length, FOCAL, 

11-40 
Evaluation of expressions 
4K Assemblers, 13-14 
Execute: To carry out an instruction 
or run a program on the com- 
puter. 
fixecuunii rvjKii<rtrs Dioarauis. i3- 

46 ^ 
Exit functions 

Disk Linking Loader, 14-67 
Exponent, 16-5, 16-8 
in Fioating-Puini fouuat. 16-6, 16- 

19 
routines, SABR, 14-79 
storage, 16-6 
FOCAL, 11-26 
Expressions 

4K Assembler, 13-18, 13-44 
EXPUNGE pseudo-op, 4K Assem- 
blers, 13-31 
Extended Floating-Point package, 
16-21 

C v *■ -i^ »-» -^ ia> 1^ rv^orv^i^r-ir 

4K Assembler, 13-28 
Extended symbols 

tape, A2-8 
External Calls 

n j« .. 4-1- r>^..*;_^^ ^c o^ 
iviain iv(juiiiita, iu-z.u 



ERASE ALL command, FOCAL, External storage: A separate facility 
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by the computer is stored (such as 
paper tape, DECtape, or disk). 
External subroutines 
SABR, 14-26 



FADD, 16-7 
FDIV, 16-7 
FGET, 16-7 
Field: 

1. One or more characters treated 
as a unit. 

2. A specified area of a record 
used for a single type of data. 

3. A division of memory on a 
PDF -8 computer referring to a 4K 
section o\ core. 

FIELD pseudo-op, 4K Assemblers, 
13-28 

File: A collection of related records 
treated as a unit. 

File assignment 
Disk Linking Loader, 14-60 

Filename: Alphanumeric characters 
uSCQ tO i\j.viii,iAy 3. j)3.riiCtiis.r HiC 

Filename extension: A short appen- 
dage to the filename to identify 
the type of data in the file, e.g., 
"BIN" signifying a binary pro- 
gram. 

File structured device: A device such 
as disk or DECtape which con- 
tains records organized into files 
and accessible through file names 
found in a directory file. See di- 
rectory device. 

Fixed point: The position of the 
radix point of a number system is 
constant according to a predeter- 
mined convention. 

Fixed-to Floating-Point Format, 16- 
19 

FIXMRI pseudo-op, 4K Assemblers, 
13-32 

FIXTAB pseudo-op, 4K Assemblers, 
13-31 

Flag: A variable or register used to 
record the status of a program 
or device. In the latter case, some- 
times called a device flag. 

Flags, Floating-Point, 16-16 
SABR, 14-13 



Flip-flop: A device with two stable 
states. 

Floating-point: A number system in 
which the position of the radix 
point is indicated by one part (the 
exponent part), and another part 
represents the significant digits 
(the fractional part). 

Floating-Point 

algorithms, 16-17 

extended package, 16-21 

input routine, 16-11 

instructions, 16-8 

packages, assembly, 16-11 

package versions, 16-10 

operations, 16-9 

output controller, 16-15 

output routine, 16-14 

representation, .16-5 

storage, 16-6 

summaries, 16-15, 16-16, 16-21 
Floating-Point accumulator, 14-74 
Floating-Point arithmetic. Library 

subprograms, 14-75 
Floating-Point constants, 13-42 
Floating-Point instructions, A2-2 

FORTRAN, 16-16 
Floating-Point Package, 16-16 

Floating-to Fixed-Point Format, 16- 
19 

Flowchart: A graphical representa- 
tion of the sequence of operations 
required to carry out data pro- 
cessing. See Appendix C of Intro- 
duction to Programming. 

FMPY, 16-7 

FNOR, 16-7 

FOCAL, 11-5 

ASK, 11-17 

COMMENT, 11-13 

Current tapes, 11-39 

DO, 11-12, 11-19 

ERASE, 11-16, 11-22 

FOR, 11-20 

GO, 11-11 

GOTO, 11-11, 11-19 

IF, 11-18 

Loading Procedures, 11-42 

LOCATIONS, 11-50 
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MODIFY, 11-21, 11-22 

RETURN, 11-13 

Systems, 11-30 

Techniques, 11-29 

Trace, 11-23 

TYPE, 11-6 

WRITE, 11-13, 11-16 
FOR statement, FOCAL, 11-20; 

BASIC, 12-34 
Format: The arrangement of data. 
Also a FORTRAN statement. 

FORMAT fields, FORTRAN, 15-23 
Format handling 
FORTRAN, 15-58 
FORMAT statement 

Form feed 

PAL III, 13-8 
FORTRAN 

demonstration program, 15-47 

features, 15-5 

Pass, 2, 
assembly methods, 14-49 
operating procedures, 14-51 

specifications, format, 15-52 

statement summary. 15-50 
FORTRAN statements, 15-6 

CALL, 15-29, 15-38 

CDISK, 15-30 

/"/^XTTTXTT TC 1C 10 

% \-f i. ^ A AJL ^ ^.^ Aj, X ^- 1 O 

DIMENSION, 15-33 
DO, 15-17 
END, 15-19 

EQUIVALENCE, 15-34 
FORMAT, 15-20 
GO TO, 15-16 - 
IF, 15-17 
ODISK, 15-30 
PAUSE, 15-19 
RDISK, 15-32 
READ, 15.27 
RTAPE, 15-28 



WDISK, 15-32 
WRITE, 15-27 
WTAPE, 15-28 
FORTR Dseudo-OD. SABR. 14-50 



Four-user FOCAL, 11-31 

4 WORD, FOCAL, 11-34 

FPUT, 16-7 

Free core. Page (SABR), 14-52 

FSUB, 16-7 

Full duplex: Describes a communi- 
cations channel capable of simul- 
taneous and independent trans- 
mission and reception. Same as 
duplex. 

M. lit tx^ iiKjitt ijitiy yr ly^ i vn ii . j. \. o»_ii^^ji v^ 

gram which returns a single value 
result, usually in the accumulator. 

Functions 

FORTRAN, 15-14, 15-35 
Functions, Library subprograms, 

14-74 
FOCAL, 11-24 



GET (FGET), 16-7 

GO statement, FOCAL, 11-11 

GOSUB statement 

BASIC, 12-39 
GOTO statement 

BASIC, 12-37 

FORTRAN, 15-16 

■XT' f~\ y-^ * TT 1 ■* 1 r\ 

GRAPH, FOCAL, 11-37, 11-47 
Graphics package, FOCAL, 11-34 
Group 1 operate microinstructions, 

13-25, A2-2 
Group 2 operate microinstructions, 

13-26, A2-2 

H 

Half duplex: Describes a system per- 
mitting communication in • only 
one direction at a given instant. 

Hardware: Physical equipment, e.g., 
mechanical, electrical, or elec- 
tronic devices. Disk Linking 
Loader, 14-58; Linking Loader, 
14-9; SABR, 14-9. 

Head: A component that reads, re- 
cords, or erases data on a storage 
device. 

High order (register), 16-17 

tions, A2-3 
Hollerith fields. 15-?^ 
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I 

I pseudo-op, 4K Assemblers, 13-22 
Identities, Floating Point, 16-21, 16- 

22 
IF-GOTO statement 

BASIC, 12-38 
IF pseudo-op, 14-22 
IF statement 

FORTRAN, 15-17 

FOCAL, 11-18 

IF-THEN statement 

BASIC, 12-38 
Illegal characters 

PAL III, 13-8 
Implementation notes 

BASIC, 12-52 

Implementation Notes (Math rou- 
tines), 17-25 
Implied DO loops 

FORTRAN, 15-57 
Incrementing operands 

SABR, 14-17 
Index 

FORTRAN, 15-18 
Indirect address: An address in a 
computer instruction which indi- 
cates a location where the address 
of the referenced operand is to be 
found. 

Indirect addressing, 13-22 
Indirect mode, FOCAL, 11-11 
Initial Dialogue 
BASIC, 12-45 
FOCAL, 1 1-54 
Initialize: To set counters, switches, 
and addresses to zero or other 
starting values at the beginning of, 
or at prescribed points in, a com- 
puter routine. 
Input: The transferring of data from 
auxiliary or external storage into 
the core memory of the computer. 
Input/Ouput (see also I/O) 
BASIC, 12-22 to 12-31 
Library subprograms, 14-74 
FORTRAN, 15-6, 15-20 
Floating-point, 16-11, 16-14 
Instruction: A command which 
causes the computer or system to 
perform an operation. Usually 
one line of a source program. 



Instructions 

Assembler, 13-11, 13-24 
Floating-Point, 16-7 
SABR 

lOT, A2-1 

Memory Reference, A2-1 

Micro, A2-1 

Multiple word, 14-34, 14-45 

Skip, 14-23, 14-37 

Integer arithmetic; Library subpro- 
grams, 14-77 

Integer constants 
FORTRAN, 15-9 
FOCAL, 11-25 
Integer function 
BASIC, 12-15 
Integer variables 
FORTRAN 15-10 
Interactive, see conversational 
Internal storage: The storage facil- 
ities forming an integral physical 
part of the computer and directly 
contoUed by the computer. Also 
called main memory and core 
memory. 

Internal symbol representation 

MACRO, 13-41, 13-42, 13-57 

PAL III, 13-12 
Interpage references, 13-23 
Interpreter: A program that trans- 
lates and executes source language 
statements at run time. 16-9 
I/O: Abbreviation for input/ output 
I/O devices, special 

FORTRAN, 15-61 
I/O list 

FORTRAN, 15-26 
I/O records 

FORTRAN, 15-26 

I/O routines, DECtape, 14-80 

lOH routines, SABR, 14-74 

lOH instructions, SABR, 14-12, A2 

Iteration: Repetition of a group of 
instructions. 



Job: A unit of code which solves a 
problem, i.e., a program and all 
its related subroutines and data. 
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jump: /\ uepariure irom me norrnai 
sequence of executing instructions 
in a computer. 

K 

K: An abbreviation for the prefix 
kilo, i.e., 1000 in decimal nota- 
tion. In the computer field, loosely, 
two to the tenth power, which is 
1024 in decimal notation. Hence, 
a 4K memory has 4096 words. 

Keyboard/ Reader instructions, A2-3 

L 

Label: One or more characters used 

statement or line. SABR 14-12; 
4K Assemblers, 13-11. 
Language, assembly: The machine- 
oriented programming language 
belonging to an assembly system, 
e.g., PAL II!, PAL-D. and SABR. 

Language, computer: A systematic 
means of communicating instruc- 
tions and information to the com- 
puter, 

Language machine: Information that 

can be directly processed by the 
computer, expressed in binary. 

IjjjiQuo-se , sowce: A computer lan- 
guage, such as PAL ill or FO- 
CAL, in which programs are writ- 
ten and which require a translation 
in order to be executed by the 
computer. 
LAP pseudo-op, SABR, i4-20 

Page escapes, 14-33 
Leader: The blank section of tape 

at the beginning of the tape. 
Least significant digit: The right- 
most digit of a number. 
Legal characters 
8K PAL-D, 14-5 
SABR, 14-11 
LET statement 
BASIC, 12-11 
ntsRA, rui^AL, ii-:>z 
commands, 11-32 

limitations, 11-33 

XV-ftAV^JL.!!^, jL J. "TT 

Stop and restart, 11-48 
Library subprograms 



uernonsirauon program, i^-o^ 
error messages, 14-73 
floating-point arithmetic, 14-75 
functions, 14-78 
input/output, 14-74 
integer arithmetic, 14-77 
organization, 14-74 
powers, 14-79 
subscripting, 14-78 

Library routines: A collection of 
standard routines which can be 
incorporated into larger routines. 
FORTRAN, 15-15. 

Line feed: The Teletype operation 
which adyanccs the paper by one 
line. 

r .-..„ ,J T_ T„ „„ 

i^i/iL' iitiiiiuci . Ill buuicc languages 

such as FOCAL, BASIC, and 
FORTRAN, a number which be- 
gins a line of the source program 
for purposes of identification. A 
numeric label. BASIC, 12-9; FOR- 
TRAN. 15-6. 15-7; FOCAL. 11- 
11 

Link: 

1. A one bit register in the 
PDP-8. 

2. An address pointer generaied 

au iUi ticUiCcii i V i.'jr LiiC L r\i^~LJ 

Or MACRO-8 Assembler to in- 
directly address an off page 
symbol. 

3. An address f^ointer to the next 
element of a list, or the next 
block number of a file. 

Linkage: In programming, code that 
connects two separately coded 
routines. 

Linkage routines, runtime CSABR), 
14-34, 14-52, 14-56 

Link generation 

MACRO, 13-46 
Linkina Loader (Paper-Taoe), 14- 
34, 14-50 

error messages, 14-72 

executing r''k./iViRAN programs, 
15-46 

FORTRAN disk I/O, 15-30 

information options, 14-52 

loadings 14-54 

memory map option, 14-52 

relocation codes, 14-39 



Index — 10 



"system requirements, !4-9, 14-51 
LINK Linkage routine, SABR, 14-36 
List: 

1. A set of items. 

2. To print out a listing on the 

line printer or Teletype. 

3. See pushdown list. 
Listing 

8K PAL-D, 14-6, 14-7 

Pass 2, assembly, 14-47 

SABR, 14-43, 14-48 

Unloaded Program, 14-67 
Listing control 

PAL-D, 1 3-65 
Listing Files 

BASIC, 12-49 
Listing a paper tape 

BASIC, 12-51 
Listing a program 

BASIC, 12-48 ' 

Literal: A symbol which defines it- 
self. MACRO, 13-48; SABR, 14- 
14 
Load: To place data into internal 

storage. 
Loader, Binary (BIN), C2-4 

Disk Linking, see Disk Linking 
Loader 

Paper tape, see Linking Loader 

Read-in Mode (RIM), C2-] 
Loading procedures; see Appendix 
C2 

Disk Linking Loader, 14-57 

FOCAL, 11-42 

FORTRAN, 15-39 

Linking Loader, 14-54 

programs and subprograms, 14-54 
overlay, 14-56 

SABR, 14-9, 14-46 

Switch register options, 14-52 

Location: A place in storage or 
memory where a unit of data or 
an instruction may be stored. 

Location counter, see current loca- 
tion counter 

LOCATIONS command, FOCAL, 
11-50 

Logarithm, 16-21; FOCAL, 11-26 

Lookup table, 16-15 

Loop: A sequence of instructions 



that is executed repeatedly until 
a terminal condition prevails. 
BASIC, 12-34 
Low order (register), 16-17 

M . 

Machine language-programming: In 
this text, synonymous with as- 
sembly language programming 
(the term is sometimes used to 
mean the actual binary machine 
instructions). 
Macro instruction: An instruction in 
a source language that is equiv- 
alent to a specified sequence of 
machine instructions. 
MACRO 

see Table of Contents, 13-3 
Link generation, 13-46 
literals, 13-48 
switch options, 13-60 
symbol table, A2-1 
versions, 13-58 
Macros, 13-52 
calling, 13055 
defining, 13-53 
macro table, 13-55 
restrictions on, 13-54 
Mantissa, 16-5 

binary point relative position, 16-6, 
16-19 

storage, 16-6 

Manual input: The entry of data by 
hand into a device at the time of 
processing. 

Manual operation: The processing of 
data in a system by direct manual 
techniques. 

Mask: A bit pattern which selects 
those bits from a word of data 
which are to be used in some sub- 
sequent operation. 

Mass storage: Pertains to a device 
such as DECtape or disk which 
stores large amounts of data read- 
ily accessible to the central pro- 
cessing unit. 

Math routines, 16-16; FOCAL, 11- 

24 

Matrix: A rectangular array of ele- 
ments. A table can be considered 
to be a matrix. 
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Memory: 

1. The alterable storage in the 
computer. 

2. Pertaining to a device in which 
data can be stored and from 
which it can be retrieved. 

Memory extension control instruc- 
tions, A2-5 

Memory map option, Linking 
Loader, 14-52 

iTj.<_iiiwi J) yaLi\.y man u(„nuii5, r^jL-j 

Memory protection: A method of 
preventing the contents of some 
part of main memory from being 
destroyed or altered. 

Memory reference instructions, 13- 
14, to 13-21, 13-24, A2-1 

Methods, FORTRAN pass 2 assem- 
bly, 14-44 

Micro instructions 

4K Assemblers 13-25 

Mnemonics, 16-8 

Mode, numeric conversion, J 4-77 

MODIFY command, FOCAL, 11- 

2i, 11-22 

Monitor: The master control pro- 
gram, that observes, supervises, 
controls, or verifies the operations 
of a system. In TSS/8, controls 
the sequencing of user programs. 

Most significant digit: The leftmost 

Multiple record formats 
FORTRAN, 15-24 

Multiple word instructions 
SABR, 14-34 
in listing, 14-45 

Multiplication, 16-18 

Multiprocessing: Utilization of sev- 
eral computers or processors to 
logically or functionally , divide 
jobs or processes, and to execute 
them simultaneously. 

Multiprogramming: Pertains to the 

grams kept in core at the same 

programs. 
Multi-user FOCAL Segments, 11-31 



N 
Nesting: 

1. Including a program loop 
within another program loop. 
Note special rules for nesting 
FORTRAN DO-loops. 

2. Algebraic nestins;, such as 
(A-^B* (C-fD)), where ex- 
ecution proceeds from inner- 
most to outermost level. 

Nesting literals 



Nesting loops 

BASIC, 12-36 
NEXT statement 

BASIC, 12-35 
NOP: An instruction that specif- 
ically instructs the computer to 
do nothing (control proceeds to 
the next instruction in sequence). 
Norm.alization, 16-6 

Normalize: To adjust the exponent 
and fraction of a floating-point 
quantity so that the fraction ap- 
pears in a prescribed format. 
Null lines, 14-10 
Number base, see Radix. 
Number formats 
BASIC, 12-10 
FOCAL, 11-8 
MACRO, 13-41, 13-42 
PAL III, 13-8 

Numeric conversion mode, SABR, 

14-// 

Numeric input conversion 
FORTRAN, 15-60 

O 

OBISUB Linkage routine, SABR, 
14-35 

Object program: The binary coded 
program which is the output after 
translation from the source lan- 
guage. The binary program which 
runs on the computer. 

Octal: Pertaining to the number sys- 
tem with a radix of eight. 

OCTAL pseudo-op, 13-28, 14-20 

ODlSK routine, SABR 14-82 
FORTRAN, 15-31 

Off-line: Pertaining to equipment or 
devices not under direct e'ontrol of 
the computer. 
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One's complement, see Complement, 
(one's), (two's). 

On-Zm^ Pertaining to equipment or 
devices under direct control of the 
computer; also to programs op- 
erating directly and immediately 
to user commands, e.g., FOCAL 
and DDT. 

OPDEF pseudo-op, SABR, 14-23 

Operand: That which is affected, 
manipulated, or operated upon. 
The address or symbolic name, 
portion of a FAL-IIl instruction. 

Assembler, 13-11 
SABR, 14-12 
incrementing, 14-17 

Operate micro instructions, 13-25, 

A2-2 

Operating instructions 
BASIC, 12-45, 12-50 
FORTRAN, 15-40, 14-49 
MACRO, 13-58 
PAL in, 13-36 

SABR with FORTRAN, 15-43, 14- 
49 

SABR, 14-47 

t^inKijui^ i.-03.cjcrj i4— -^>' 

FOCAL, 11-42 
Operator: That symbol or code 
which indicates an action (or 
operation) to be performed, e.g., 
+ or TAD: SABR, 14-12 

OPISUB linkage routine, 14-35 

Options, switch register See Switch 
Register Options. 

OR: (Inclusive) A logical operation 
such that the result is true if either 
or both operands are true, and 
false if both operands are false. 
(Exclusive) A logical operation 
such that the result is true if 
either operand is true, and false 
if both operands are either true or 
false when neither is specifically 
indicated, the default case is in- 
clusive OR. 

Order of operator evaluation 
BASIC, 12-13 

Origin: The absolute address of the 
beginning of a section of code. 

Origin setting 
MACRO, 13-21, 13-45 

Output: Information transferred 



from the internal storage of a 
computer to output devices or ex- 
ternal storage. 

Output controller, 16-15 

Output forjnats, 14-38 

BASIC, 12-28 

Overflow: A condition that occurs 
When a mathematical operation 
yields a result whose magnitude is 
larger than the program is capa- 
ble of handling. Floating-point, 
16-13 

Overlay Combinations, FOCAL, 11-. 
38, 11-39 



Page: A 128-word section of core 
memory, beginning at an address 
which is a multiple of 200 g. 
Paging, SABR, 14-32 
escapes, 14-33 
format, 14-33 

PAGE pseudo-op, 4K Assemblers, 
13-45; SABR, 14-21 

PAL III 

see Table of Contents, 13-2 

extended symbols tape, A2-8 

programming, 13-7 

symbol table, A2-1 
PAL-D, 4K 

see Table of Contents, 13-3 

programming, 13-65 

symbol table, A2-1 
PAL-D, 8K, 14-5 

see Table of Contents, 15-3 

symbol table, A2-1 

requirements, 14-9 
Paper tape system 

FORTRAN, 15-39 
Parameters, SABR, 14-16 
Parentheses 

BASIC, 12-13 

MACRO, 13-48 

FOCAL, 11-6 

Pass: One complete cycle during 
which a body of data is processed. 
An assembler usually requires two 
passes during which a source pro- 
gram is translated into binary 
code. SABR, 14-47; 4K Assem- 
blers, 13-35 



Index — 13 



F^citch' To modify s routine in H 

rough or expedient way. 
PAUSE statement 
FORTRAN, 15-19 

PAUSE pseudo-op, 4K Assemblers, 
13-30, SABR, 14-19 

Period (.), 4K Assemblers 13-22 

Percent sign, FOCAL, -11-8 

Peripheral equipment: In a data pro- 
cessing system, any unit of equip- 
ment, distinct from the central 
processing unit, which may pro- 
vide the system with outside stor- 
age or communication. 

Permanent symbols, A2-1 

Permanent Symbol Table, 
altering, 13-31 
MACRO, 13-56 

PLOTR, FOCAL, 11-37 

Pointer address: Address of a core 
memory location containing the 
actual (effective) address of de- 
sired data. 

Priority interrupt: An interrupt 
which is given preference over 
other interrupts within the system. 

Priority of operators 

D/\3H^, JZ-JJ 

Procedure: The course of action 
taken for the solution of a prob- 
lem; also called an algorithm. 

Program: The complete sequence of 
instructions anu routines necessary 
to solve a problem. 

Program addresses 
SABR, 14-37 

Program control math routines. 16- 

26 

Program execution, SABR, 14-70 
Program interrupt instructions, A2-3 
Program Length, FOCAL, 11-40 
Program Listing, Unloaded, 14-67 
Program preparation, 4K Assem- 
blers, 13-33, 13-66 

Pseudo floating accumulator, 16-6 

Pseudo-operation : An instruction to 
the assembler; an operation code 
that is not part- of. the computer s 
operation repertoire as realized by 

. the hardware. Also "seudo-O". 

Fseudo-ops, A2-6 
8K PAL-D, 14-6 



SAkBR, 14-18 
External subroutine, 14-26 
Pseudo-ops, A2-6 

DECIMAL, 13-28 

DEFINE, 13-53 

DUBL, 13-41 

EXPUNGE, 13-31, 13-56 

FIELD, 13-28, 13-65 

FIXMRI, 13-32 

FIXTAB, 13-31, 13-56 

FLTG, 13-43 

I, 13-22, 13-27 

OCTAL, 13-28 

PAGE. 13-45 

PAUSE, 13-30 

TEXT, 13-51 

XLIST, 13-65 

Z, 13-23, 13-27 
Punched paper tape: A paper tape 
on which a pattern of holes is 
used to represent data. 
Punching paper tape 

BASIC, 12-50 
Pushdown list: A list constructed 
^nd maintained so that the next 
item to be retrieved is the item 
most recently stored in the list. 

Q 
QUAD, FOCAL, 11-31 
error procedures, 11-51 
loading procedures, Ii-46 






Queue: A waiting list. In time- 
sharing, the Monitor maintains a 
queue of user programs waiting 
for processing time. 

QUIT command, FOCAL, 11-13 

Quote ("), 13-51 

R 
Radix: The base of a number sys- 
tem, the number of digit symbols 
required by a number system. See 
Binary, Octal. 
Random access: A storage device in 
which the accessibility of data is 
effectively independent of the lo- 
cation Oi tne uata. oynonymous 
with direct access. 
Random number function 
BASIC, 12-16. 12-17 
FOCAL, 11-26 
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Range, FORTRAN 15-18 

RDISK routine, SABR, 14-83 
FORTRAN, 15-32 

Read: To transfer information from 
an input device to core memory. 

Reading a paper tape 
BASIC, 12-51 
FOCAL, 11-52, 11-54 
(silent) 

READ statement 
BASIC, 12-22 
FORTRAN, 15-27 

Real constants 
FORTRAN, 15-9 

Real-time: Pertaining to computa- 
tion performed while the related 
physical process is taking place 
so that results of the computation 
can be used in guiding the phys- 
ical process. 

Real variables 
FORTRAN, 15-10 

Record: A collection of related items 

of data, treated as a unit. 
"Recursive subroutine: A subroutine 
capable of calling itself and re- 
turning, at some later point, to 
the program which initially called 
it. 

Register: A device capable of storing 
a specified amount of data, usu- 
ally one word. 

Register, 16-12 17. 

Relative address: 

1. The number that specifies the 
difference between the actual 
address and a base address. 

2. In the PDP-8 the character 
period (.) is used to represent 
the current location counter; 
addresses can be indicated rel- 
ative to the current location 
counter (.+5 indicates five 
locations from the current lo- 
cation), or relative to an or- 
igin assigned by use of the 
asterisk. 

Relocatable: Used to describe a 
routine whose instructions are 
written so that they can be lo- 
cated and executed in different 
parts of core memory. SABR, 14-9 

Relocation codes, Loader, 14-39 



REM statement 
BASIC, 12-9 

Removing a line of code 
BASIC, 12-42 

Removing program lines 
BASIC, 12-49 

REORG pseudo-op, 14-21 

Replacement operator, (=), 12-11 

Replacing a program on Disk 
BASIC, 12-47 

Response time: Time between initi- 
ating some operation from a ter- 
minal and obtaining results. In- 
cludes transmission time to the 
computer, processing time, access 
time to file records needed, and 
transmission time back to the ter- 
minal. 

Restart: To resume the execution of 
a program. 
FOCAL, 11-43 
RESTORE statement 

BASIC, 12-24 
RETRN pseudo-op, SABR, 14-29 
RETURN statement 
BASIC, 12-40 
FOCAL, 11-13 
Routine: A set of instructions ar- 
ranged in proper sequence to 
cause the computer to perform a 
desired task. 

RTAPE statement 

FORTRAN, 15-28 

RTN linkage routine, 14-36 

Run: A single continuous execution 
of a program. 

RUN command 

BASIC, 12-46 

^Run time: The time in which a pro- 
gram is executed. 

Runtime linkage routines 
Disk Linking Loader, 14-56 
Linking Loader, 14-34, 14-52 

S 
SABR 

error -messages, 14-71 
language, 14-9 
operating procedures, 14-46 
statements, 14-9 to 14-16 
symbol table, A2-1 
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system requirements, 14-9 
Sample of assembly listing, 14-43 
SAVE command 

BASIC, 12-47 
Saving a program on Disk 

BASIC, 12-47 
Saving FOCAL Programs, 11-43 
Scalar variables 

FORTRAN 15-10 
Segment: 

1. 1 iiaL pai L Oi- <x xKJiiji, |^aU^Iv*i^» 

which may be resident in core 
at any one time. 

2. To divide a program as in 1. 
into two or more segments or 
to store part of a program or 
routine on an external storage 
device to be brought into core 

as needed. 

3. A unit of disk storage on 
TSS/8, generally 400« words. 

FOCAL, 11-34 

Serial access: Pertaining to the se- 
quential or consecutive transmis- 
sion of data to or from core, for 
example, paper tape. Contrast 
with random access. 

SET statement, FOCAL. 1 1-7 

Seven-user FOCAL, 11-32 

Shift: A movement of bits to the 
left or right frequently performed 
in the accumulator. 

Sign function 
BASIC. 12-15 
FOCAL, 11-25 

Signs, math routines, 17-26 

Simple programming languages 
BASIC, 12-5 
FOCAL, 11-5 

Simulate: To represent the function- 
ing of a device, system, or com- 
puter program with another sys- 
tem or program. 

Sine, Floating-Point, Package, 16-21, 
16-29; FOCAL, 11-27 

Single step: Operation of the com- 
puter in which each instruction is 
performed by setting the single- 
step or single instruction switch 
and repeatedly depressing CON- 
Tinue. 

SKIP instructions 



SKPDF pseudo-op, SABR, 14-23 

Software: The collection of pro- 
grams and routines associated with 
the computer. 

Source language: See language, 
source. 

Source program: A computer pro- 
gram written in a source language. 

Spaces 

BASIC, 12-13 

FORTRAN, 15-6 
Special characters 

8K PAL-D, 14-5 

.^ACK, lt-11 

Specification codes 
FORTRAN, 15-21 
Specification statements 

FORTRAN, 15-6, 15-33 
Square, Floating-Point, 16-8 
Square brackets 
MACRO, 13-48 
Square root, Floating-Point, 16-8, 
16-28; FOCAL, 11-25 
Statement: An expression or instruc- 
tion in a source language. 
STOP statement 

FORTRAN. 15-20 
Stopping a run 
BASIC, 12-44 
Storage allocation: The assignment 
of blocks of data and instructions 
to specified blocks of storage. 
Storage allocation 

FORTRAN, 15-53 
Storage capacity: The amount of 
data that can be contained in a 
storage device. 
Storage, COMMON (SABR), 14-24 

Storage device: A device in which 

data can be entered, retained, and 

retrieved. 

Storage, Floating-Point, 16-6, 16-17 

Storage map option, SABR, 14-52, 

14-66 

C.i„ T:^^ ^^t^t' Ani-n tT\ir\ o Qt^i'TCiKrP' 

device. 
String: A connected sequence of en- 
tities, such as characters in a 
command string. 
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Subprogram arguments, picking up, 
14-30 

Subprogram statements 

FORTRAN, 15-6, 15-35 

Subroutine, closed: A subroutine not 
stored in the main part of a pro- 
gram. Such a subroutine is nor- 
mally called or entered with a 
JMS instruction and provision is 
made to return control to the 
main routine at the end of the 
subroutine. 

Subroutine, open: A subroutine that 
must be relocated and inserted 
into a routine at each place it is 
used. 

Subroutines, external, 14-26 

BASIC, 12-37 

externa], 14-26 

FORTRAN, 15-37 

user, 16-15 

Subscript: A value used to specify 
a particular item in an array. 

Subscripted variables 
BASIC, 12-3r 
FOCAL, 11-14 
FORTRAN, 15-11 
Library subprograms, 14-78 
Subtraction, Fl. pt., 16-18 
Swapping: In a time-sharing environ- 
ment, the action of either tem- 
porarily bringing a user program 
into core or storing it on the disk 
or other system device. 

Switch: A device or programming 
technique for making selections. 

Sw^itch register options 

Linking Loader 

core availability, 14-52, 14-55 

storage map, 14-52, 14-55 

tape reader, 14-46, 14-54 
SABR, ^ 

core availability, 14-52 

overlay, 14-67 

storage map, 14-52, 14-55 

tape reader, 14-46, 14-54 

Symbol definition, SABR, 14-23 

Symbolic address: A set of charac- 
ters used to specify a memory lo- 
cation within a program. 4K 
Assembler, 13-13 



Symbolic code, see Language, Source 
Symbolic Editor: A PDP-8 System 
Library program which helps 
users in the preparation and modi- 
fication of source language pro- 
grams by adding, changing, or 
deleting lines of text. 15-6 
Symbolic instructions 

4K Assembler, 13-15 
Symbolic tape format 

8K FORTRAN output, 14-48 
Symbols 

4K Assemblers, 13-12 
SABR, 14-12 
equivalent, 14-13 
flags, 14-13 
permanent, 14-12 
storage, 14-38 
user defined, 14-13 
FOCAL, 11-13, 11-14 
Symbol table: A table in which 
symbols and their corresponding 
values are recorded. 
4K Assemblers: altering, 13-31, As- 
sembler, A2-L MACRO, 13-56,^ 
PAL in, 13-16. 

8K Assemblers: 8K PAL-D, 14-7, 
SABR, 14-38, 14-47 
System: A combination of software 
and hardware which performs 
specific processing operations. 
System configuration 

Disk Linking Loader, 14-51 

Linking Loader, 14-9 

12K PAL-D, 14-7 

SABR, 14-9 

T 

TAB character 

4K Assemblers, 13-7 
TAB function 

BASIC, 12-30 
Table: A collection of data stored 
for ease of reference, generally an 
array. 

Tabulations 

4K Assemblers, 13-8 
Tag: See Label 
Tangent, 16-21 
Tape Format, 

FORTRAN, 14-49 

SABR. 14-38 
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1 eiepnnter/puncn instructions, azo 

Temporary storage: Storage loca- 
tions reserved for intermediate re- 
sults. 

Terminal: A peripheral device in a 
system through which data can 
either enter or leave the computer. 

Terminator. 16-11 

Text facility 
MACRO, 13-51 
SABR. 14-27 

Time sharing: A method of allocat- 
ing central processor time and 
other computer services to mul- 
tiple users so that the computer, 
in effect, processes a number of 
programs simultaneously. 

Time quantum: In time-sharing, a 
unit of time allotted to each user 
by the Monitor, (quanta, pi.) 

Toggle: Using switches to enter data 
into the computer memory. 

Trace feature, FOCAL, 11-23 

Transfer of control 
BASIC, 12-37 

Translate: To convert from one 
language to another. 

I rig luncuons, rwv.^/%L, ii-zo 

Truncation: The reduction of preci- 
sion by dropping one or more of 
the least significant digits: e.g., 
3.141592 truncated to 4 decimal 
digits is 3.141. 

TSS./8 

BASIC, 12-5 

LOGIN procedure, 12-45 

PAL-D. 13-67 

Microinstructions, A2-7 

TYPE statement, FOCAL, 11-6 

Typeout subroutine, Floating-Point, 
16-14, 16-15 timing, 16-16 

U 
Unconditional GOTO, FORTRAN, 

15-16 
LjncuHuiiiOnai iiaiiSiei 

BASIC, 12-37 
Undefined addresses, 13-15 
Underflow: A condition that occurs 
when a floating point operation 



yields a result wnose magnitude is 
smaller than the program is capa- 
ble of handling. 
Unloaded program listing, SABR, 
14-67 

Up arrow (t), BASIC, 12-44 
User: Programmers and operators of 

PDP-8 computer systems. 
User-defined functions 
BASIC, 12-19 
User-defined m.acros, 13-52 . 
User-defined symbols, SABR, 14-13 
User program execution, SABR, 
14-70 

16-15 
Utilit'*' Pscks^^c losdiii*^ 'procedures. 
^FOCAlT 11^46""" ^ 

V 
Variable: A symbol whose value 
changes during execution of a 
program. 

BASIC, 12-11 
Dummy, 14-28 

FORTRAN, 15-8, 15-10, 15-53 
FOCAL, 11-14, 11-13 

W 
WDISK routine. 14-83 
WDISK statement 
FORTRAN, 15-32 
Word: In the PDP-8, a 12-bit unit 

- r ji„x„ _..i.:_x> t_ _ _* J :_ 

UL UCtlcl Wllltll llia^ UC SIUICU 111 

one addressable location. 

4WORD, see Four (4) WORD. 

Write: To transfer information from 
core memory to a peripheral de- 
vice or to auxiliary storage. 

WRITE statement 

FORTRAN, 15-27 

FOCAL, 11-13, 11-16 
WTAPE statement 

FORTRAN, 15-28 

X 

XLIST pseudo-op, 13-65 



Z pseudo-op, 13-23 
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